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PROPORTION ESTIMATE PROCESSOR 


1.0 SCOPE 

This document contains the design of the Proportion Estimate Processor which 
was written to satisfy the software requirement of Part A of the PI A 
Experiment. The purposes of the project are as follows: 

(1) To select the dots to be labelled. 

(2) To create tables of green numbers and brightness values for all 
selected dots per acquisition. 

(3) To create scatter plots of green numbers vs brightness for each 
acquisition for all selected dots. If labels have been provided 
then scatter plots of only categories of interest can be optionally 
produced. 

(4) To produce trajectory plots of green number vs brightness at differing 
acquisition times for each dot. These plots need to be in the same 
order as the list of selected dots. When labels are provided only 
plots of dots of categories of interest are to be produced. 
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2.0 APPLICABLE DOCUMENTS 


The following documents form a part of this specification: 

AD NAS 9-lbSOO Software for Testing of Crop Proportion Estimator for PI A. 
AD 74-422-20 Documentation of Spectral Aid Software. 
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3.0 SYSTEM DESCRIPTION 


3.1 HAR DWARE DESCRIP " ION 

The software for the Pixel Selection and Display Processor Is operational 
on the IBM 3031 computer at Purdue. 

3.2 SOFTWARE DESCRIPTION 

Part A of the P1A Experiment selects representative pixels from a full 
scene, creates a set of spectral aids, allows analysts to assign labels to 
the selected pixels and creates a set of labelled spectral aids. 

The user specifies the segment number, acquisition dates, pixel selection 
criteria and report header information through a control parameter file 
(3.3.1). 

The processor uses the pixel selection criteria to select the 209,10x10 
pixels, the 209 5x5 pixels, both of these sets or the 209 10x10 pixels plus 
enough pixels to satisfy the proportional requirement for each cluster. 

If proportional representation is selected, a 1-channel tape created by a 
clustering programs is used to specify the cluster assigned to each pixel. 
After the pixels are selected, various reports are created to display the 
pixels and their associated radiance values. 

The AI's can assign labels to the selected pixels or alternative pixels 
using the CMS370 text editor to enter the labels or modify the selection 
of the pixels. The processor can ,hen be used to create input files for 
the Proportion Estimator Processor. 

The various reports can be re-created to display the pixels, their associated 
radiance values and their labels. 
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3,3 FILE DESCRIPTION 

3.3.1 USER DEFINED FILE (SEGMENT NUMBER) CCA 

The following records are input to the PI A system and are analysed by SETP1D 
In all records the "keyword" begins in column 1 and any parameters on the card 
are in columns 11 through 72. Numbers in a series are separated by commas*, 
blanks are optional, 

1. "DOTS" RECORD 

EXAMPLE: DOTS 75 

This record specifies the total number of pixels to be proportionally 
distributed between the clusters. 

2. "CHANNEL" RECORD 

EXAMPLE: CHANNEL 1,2, 3, 4, 7, 8 

This card specifies the channel numbers to be used from the multi-channel 
data tape. 

3. "SOIL LINE" RECORD 

EXAMPLE: SOIL LINE 1,-5, 7, 4 

This record specifies the average soil line for each acquisition, 

4. "ACQUISITION DATE" RECORD 

EXAMPLE: ACQUISITION 79150, 79182, 79227 

This record specifies the acquisition date for each acquisition. 

5. "SELECTION" RECORDS 

EXAMPLE: SELECTION W.B.S 

This optional record specifies the labels to be plotted. It is used only 
if the LABEL record specifies labelling. 
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6. "DATE" RECORD 

EXAMPLE : DATE MAY 20, 1980 
This record specifies the date the report was created. 

7. "SEGMENT" RECORD 

EXAMPLE: SEGMENT 1659 

This record specifies the segment number. 

8. '‘LABEL" RECORD 

EXAMPLE: LABEL LABELLED 

This record specifies whether all the pixels are to be used (UNLABELLED) or 
only the labelled pixels (LABELLED). 

9. "AI" RECORD 

EXAMPLE: AI JO MARIE JONES 
This optional record specifies the analyst's name. 

10. "FILE" RECORD 

EXAMPLE: FILE "LISTRJJ1" 

This record specifies the name of the input file. 

11. -END" RECORD 

EXAMPLE: *END 

This nianditory record specifies the end of the control cards. 
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3.3.2 P1A SYSTEM CREATED FILES 
3. 3, 2.1 (Segment number) CLUST 
Origin 

CLUSTAPE Program. 

Format 

Record Columns Format 

1-117 1-196 19614 


Contents 

Cluster 
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3. 3, 2, 2 (Segment number) LIST A 

fidflia 

SELDOTS Program. 

Format 


Record 

Co l mans 

Format 

1 

1-4 

14 


5-30 

26A1 


31-34 

14 

2-N 

1 -4 



5-8 

14 


9-12 

14 


13-16 

14 


17-20 

14 

N+l 

1-4 

4A1 

N+2 

1-15 

15A1 


16-65 

1015 

N+3 

1-20 

20A1 


C ontents 

Number of selected pixels 
PIXELS SELECTED TOR SEGM 
Segment number 
Blanks 

Sample number 
Line number 
Cluster number 
Grid number 
*END 

GRID INDICES = 

Beginning and ending locations 
for the 5 grids 

Date list was created 
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3. 3. 2. 3 (Segment Number) PR0C2 A 
Origin 

SEIDOTS Program. 


Format 




Record 

Columns 

Format 

Contents 

1 

1 “4 

14 

Number of clusters in file 

2 

1-60 

1514 

Number of pixels in cluster 1-15 

3 

1-60 

1514 

Number of pixels in cluster 16-30 

4 

1-60 

1514 

Resulting cluster number after combining 
for small clusters 1-15. 

5 

1-60 

1514 

Resulting cluster number after combining 
for small clusters 16-30. 



3. 3. 2. 4 (Segment Number) RAD D 
Origin 

GRBRTAPE Program. 

Format 

Record Columns Format Contents 

1-117 1-N* NI4 Radiance values 


*N * 196 * number of channels 


3. 3. 2. 6 (Segment Number) LISTXXXX* A 
Ori gi n 

WRTRIG Program, 

Format 


Record 

Columns 

rprjat 

Contents 

1 

1-4 

14 

Number of selected pixels 


O 

oo 

I 

LO 

26A1 

PIXELS SELECTED FOR 


31-34 

14 

Segment number 

2-N 

1-4 


Blanks 


5-8 

14 

Sample number 


9-12 

14 

Line number 

N+l 

1-4 

4A1 

*END 

N+2 

1-15 

15A1 

GRID INDICES 


18-65 

1015 

Beginning and ending locations 




the 5 grids 

N+3 

1-20 

20A1 

Date original LIST file created 

N+4 

1-20 

20A1 

Date this file created 

N+5 

1-20 

20A1 

Pates of any undating of file 

^Characters 

1-4 

LIST 




R - reformatted 



I - integrated 



G - ground truth 
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Analyst's 

initials 


8 

Version number 
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3. 3, 2. 6 (Segment Number) P1AXXXX* A 
Origin 

COMPARE Program. 

Format 


Record 

Columns 

Format 

Contents 

1 

1-4 

14 

Number of selected pixels 


5-30 

26A1 

PIXELS SELECTED FOR 


31-34 

14 

Segment numbers 

2-N 

1-4 

M 

Analyst label 


5-8 

14 

Sample number 


9-12 

14 

Line number 


3-16 

14 

Cluster number 


17-20 

14 

Grid number 

N+l 

1-4 

4A1 

*END 

N+2 

1-15 

15A1 

GRID INDICES = 


16-65 

1015 

Beginning and ending locations 
5 grids 

Characters 

1-3 

PI A 

R - reformatted 
I - integrated 
G - groundtruth 


5-6 

Analyst's 

initials 


7 

Version number 


f 


/ 
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3.4 SOFTWARE DESCRIPTION 


3.4.1 CLUSTAPE PROGRAM 
Purpose 

CLUSTAPE moves data from a 1-channel Universal Formatted Tape to a 
temporary disk file, 

Linkages 

None. 

Interface 

None. 

Inputs 

1 -channel tape in Universal Format. 

Outputs 

Randomly accessable file. EXEC parameter &1 CLUST D 

Storage Requirement 
Not applicable. 

Description 

CLUSTAPE reads each line of the 1 -channel tape and creates a disk record 
addressable by the line number of the cluster labels on the tape. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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Flowchart 


Not applicable. 
Listing 


See Appendix B for program. 


3.4.2 SELDOTS PROGRAM 


Purpo se 

SELDOTS makes a list of pixels to be evaluated by AI's. 

Linkages 

% . mu — wk . ■■ ■ 1 1 , m l.. m M n mmw .j* 

SELDOTS calls 5ETPID, NRAND, RDSUMS, FIL209, F1L5X5, FIL105, FIL510, FILRAN 
and WRTLST. 


Interface 

Interface is accomplished through common blocks /CLSTR/, /LISTRQ/, /MISC/, 
and /REQUIR/, as described in Appendix A. 


Incuts 


Multi-channel disk file EXEC parameter &1 CLUST D 

Control parameter file EXEC parameter &1 CC 


Outputs 

File of selected pixels EXEC parameter &1 LIST 

File for procedure 2 EXEC parameter &1 PR0C2 

TABLE I written to printer file 
TABLE IA written to printer file 


S to rage Requ i remen t 
Not applicable. 


D escription 

SELDOTS uses the NODOTS parameter in the control parameter file to determine 
the method for selecting the dots. If the NODOTS is a 1,2 or 3 the 209 
10x10 pixels, the 209 5x5 pixels or the 418 10x10 and 5x5 pixels will be 
selected respectively. If NODOTS is greater than 3, the 209 10x10 dots will 
be chosen and additional dots chosen to satisfy the proportional requirements 
for the clusters. 
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Flowchart 
Not applicable. 

Listing 


See Appendix B for program. 


3. 4. 2.1 SOFTWARE COMPONENT NO. 1 (RDSUMS) 

Purpose 

RDSUMS counts the number of points in each cluster and calculates the number 
of pixels required for each cluster to satisfy the porportional requirement. 

Linkages 

RDSUMS is called by SELDOTS. 

Linkages 

Interface is accomplished through common blocks /CLSTR/, /LISTRQ/ and /MISC/ 
as described in Appendix A. 

Inputs 

1 -channel disk file EXEC parameter &1 CLUS D 
Outputs 

Table written to printer showing symbol, count, percent, number required 
and index for each cluster. Number of zero cluster written to printer. 

Storage Requirement 
Not applicable. 

D escription 

The 1-channel disk file is read and the number of pixels in each cluster 
and the percentage of the total is computed. Clusters with less than three 
percent are grouped together. 

Flowchart 
Not applicable, 

Listing 

See Appendix B for program. 
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3, 4 ,2. 2 SOFTWARE COMPONENT NO. 2 (FIL209) 

Purpose 

FIL209 moves the data on an 209 10x10 dots to the list file. 

Linkage s 

FIL209 is called by SELDOTS. 

Interface 

Interface is accomplished through common blocks /CISTR/, /LISTRQ/, /MISC/ 
and /REQUIR/ as described in Appendix A. 

Inputs 

None, 

Outputs 

None. 

Storage Requi remen t 
Not applicable, 

Descr i ption 

FIL209 saves the list of the 10x10 dots including their line number, cblumn 
and cluster index. The count of pixels for each cluster type is accumulated. 

FI owchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4. 2, 3 SOFTWARE COMPONENT NO. 3 (FIL5X5) 

Puinjose 

1 m mm 

FIL5X5 fills requirements with dots chosen at random from lines 5-105, samples 
5-185. 

Linka ges 

FIL5X5 is called by SELDOTS. FIL5X5 calls UNIF and CKPUT. 

Interface 

Interface Is accomplished through common blocks /CLSTR/, /LISTRQ/, /MISC/ 
and /REQUIR/ as described in Appendix A. 

Inpu ts 

None . 


Outputs 
None . 

Storage Requirement 
Not applicable. 

Description 

FI 1.5X5 gets two random numbers using function UNIF. These numbers are used 
to calculate a line and 'pixel location on the 5X5 grid. If the complete 
grid is to be used, the dot is added to the list of selected pixels. If 
proportional requirements for the clusters are required, the dot is added 
to the list of selected pixels only if more pixels are needed for its clusters. 

Flowchart 
Not applicable. 

Listing 


See Appendix B for program. 
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3. 4, 2. 4 SOFTWARE COMPONENT NO, 4 (FIL105) 

Purpose 

FIL105 fills requirements with dots chosen at random from lines 10-110, 
samples 5-185. 

Linkages 

FI LI 05 Is called by SELD0T3. FIL105 calls UNIF and CKPUT. 

Interface 

Interface is accomplished through common blocks /CLUCTR/, /LISTRQ/, /MISC/ 
and /REQUIR/ as described in Appendix A. 

Inputs 

None. 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

FIL105 gets two random numbers using function UNIF. These numbers are used 
to calculate a line and pixel location on the 10x5 grid. The dot is added 
to the list of selected pixels, if more pixels are required for its cluster. 

Flowchart 
Not applicable. 


Li s ti ng 

See Appendix B for program. 
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3. 4. 2.5 SOFTWARE COMPONENT NO. 5 (FIL510) 

Purpose 

FIL510 fills requirements with dots chosen at random from lines 5-115, 
samples 10-190. 

Linkages 

FIL510 is called by SELDOTS. FIL510 calls UNIF, CKPUT. 

Interface 

Interface is accomplished through common blocks /CLSTR/, /LISTRQ/, /MI SC/ 
and /REQIJIR/ as described in Appendix A. 

Inputs 

None. 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

FIL510 gets two random numbers using function UNIF. These numbers are used 
to calculate a line and pixel location on the 5x10 grid. The dot is added 
to the list of selected pixels, if more pixels are required for its cluster. 

Flowchart 
Not applicable. 


Listing 

See Appendix B for program. 
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3. 4. 2. 6 SOFTWARE COMPONENT NO. 6 (FILRAN) 
Purpose 


FILRAN fills requirements with dots chosen at random from the complete 
field. 

Linkages 

FILRAN Is called by SELDOTS. FILRAN calls UNIF and CKPUT. 

Interface 

Interface is accomplished through common blocks /CLSTR/, /MISC/ and /REQUIR/ 
as described in Appendix A. 

Inputs 

None. 


Outputs 

None. 


Storage Requirement 
Not applicable. 

Description 

FILRAN gets two random numbers using function UNIF. These numbers are used 
as the line and pixel location in the complete field. The dot is added 
to the list of selected pixels, if more pixels are required for its cluster. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 2. 7 SOFTWARE COMPONENT NO. 7 (CKPUT) 
Purpose 

CKPUT stores the pixel In the list, 


Linkages 

CKPUT Is called by FIL5X5, FIL510, FIL105 and FILRAN. 

Interface 

Interface is accomplished through common blocks /CLSTP/, /LISTRQ/, /MISC/ 
and /REQUIR/ as described in Appendix A. 

Inputs 

None. 

Outputs 

None. 


i remen t 


Not applicable. 


Description 

CKPUT returns immediately if pixel has been used. If the pixel has not been 
used, the corresponding line of the 1-channel file is read and the index 
of its cluster is determined. If more pixels are needed for this cluster, 
the dot is added to the list. 


Flowchart 
Not applicable. 

Li s ti ng 

See Appendix B for program, 
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3. 4. 2. 8 SOFTWARE COMPONENT 8 (WRTLST) 

Purpose 

WRTLST writes the file (segment number) LIST and TABLE I and TABLE IA. 

Li nkages 

WRTLST is called by SELDOTS. WRTLST calls HEADTI and HEDTIA. 

Interface 

Interface is accomplished through common blocks /CLSTR/ , /LISTRQ/, /MISC/ 
and /REQUIR/ as described in Appendix A. 

Inputs 

None. 

Outputs 

List file (Segment number) LIST A 
TABLE I written to printer file 
TABLE IA written to printer file 

Storage Requirement 
Not applicable. 

Description 

WRTLST writes Tables I and IA and the LIST file of all the selected pixels. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3, 4. 2.9 SOFTWARE COMPONENT NO. 9 (HEADTI) 

Purpose 

HEADIT writes the report heading for Table I. 

Linkages 

HEADTI Is called by WRTLST. 

Interface 

Interface Is accomplished through common blocks /MISC/ as described In 
Appendix A. 

Inputs 

None. 

Outputs 

Table I heading written to printer file. 

Storage Requirement 
Not applicable. 

Description 

HEADTI writes the report heading containing the segment number and the 
acquisition dates to the printer file. 

Flowchart 
Not applicable. 

L isting 

See Appendix B for program. 
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3.4.2.10 SOFTWARE COMPONENT NO. 10 (HEDTIA) 

Purpose 

HEDTIA writes the report heading for Table I A. 

Linkages 

HEDTIA is called by WRTLST, 

Interface 

Interface is accomplished through common blocks /LISTRQ/ and /MISC/ as 
described in Appendix A. 

Inputs 

None. 

Outputs 

Table IA heading written to printer file. 

Storage Requirement 
Not applicable. 

Description 

HEDTIA writes the report heading containing the segment number and the 
acquisition dates to the computer file. 

Flowchart 
Not applicable. 

Listing 


See Appendix B for program. 


3.4.3 GRBRTAPE PROGRAM 
Purpose 

GRBRTAPE moves data from a multi-channel Universal Formatted Tape to a 
temporary disk file. 

Linkages 

None. 

Interface 

None. 

Inputs 

Multi-channel tape in Universal Format. 

Control Parameter File EXEC parameter &! CC A 
Outputs 

Randomally accessable file EXFC parameter &1 RAD D 

Storage Requirement 
Not applicable. 

Description 

GRBRTAPE reads each line of the multi-channel tape and creates a disk record 
addressable by the line number of the cluster labels on the tape. 

Flowchart 
Not applicable. 

l isting 

See Appendix B for program. 


\ 
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3.4,4 LISTDOT PROGRAM 
Purpose 


The LISTDOT program outputs a Table III report which is a report of green 
number and brightness values in dot number order for all grids. 

Linkages 

LISTDOT is the main program which calls SETP1D, READAI, RADRED, and GRID0P. 
Interfaces 

LISTDOT Interfaces with all the called routines by use of common blocks 
/LIST/, /BUFFER/, /RADIAN/, /MISC/, /INFJ5/, as described In Appendix A. 

Inputs 

File of selected dots 
File of multichannel radiance values 

Control parameter file 
Outputs 

Table III report on print file. 

Storage Requirements 
Not applicable. 

Description 

LISTDOT is a main program which calls routines to initialize the input 
parameters, read the selected line and pixel numbers, read the radiance 
values, and write the report. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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EXEC parameter &1 &2 
EXEC parameter &1 RAD D 

EXEC parameter &1 CC A 


3. 4. 4.1 SOFTWARE COMPONENT NO. 1 ( READAI ) 

Purpose 

Subroutine READAI reads the data describing the selected pixels. 

Linkages 

READAI Is called by LISTDOT. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/INF0/, as described In Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

READAI reads the file of selected dots into the matrix LBLDAT. It also 
reads and saves the beginning and ending addresses for each grid and the 
date the last time the file was updated. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4.4. 2 SOFTWARE COMPONENT NO. 2 (RADRED) 

Purpose 

Subroutine RADRED reads radiance values for selected pixels. 

LI nkages 

RADRED Is called by LISTDOT. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/INFO/, /RADIAN/, as described in Appendix A. 

Inputs 

File of multichannel radiance values EXEC parameter &1 RAD D 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RADRED reads the selected lines of radiance values and moves the values for 
each pixel selected into the matrix IDOTRD after subtracting the soil line 
from even number channels to form the green number. IDOTRD contains the 
values according to the order of the output, i.e. green number, then 
brightness for each acquisition. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4. 4. 3 SOFTWARE COMPONENT NO. 3 (GRID0P) 

Purpose 

Subroutine GRIDOP writes Table III which contains number, line, pixel, label, 
and green number and brightness values. 

Linkages 

GRIDOP Is called by LISTDOT. GRIDOP calls HEDIII, TITLDT , and CALDOT. 
Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/INFO/, /RADIAN/, as described in Appendix A. 

Inputs 

Not applicable. 

Outputs 

Table III report on print file. 

Storage Requirement 
Not applicable. 

Description 

GRIDOP outputs the whole Table III report. For each grid it prints up to 
6 acquisitions of green number, brightness, and label. For grid 1 it also 
prints the dot number. It calls TITLDT to print the title when needed. 

Flowchart 
Not applicable. 


Listing 

See Appendix B for program. 


3. 4, 4. 4 SOFTWARE COMPONENT NO. 4 (HEDIII) 

Purpose 

Subroutine HEDIII writes the heading for Table III. 
linkages 

HEDIII Is called by LISTDOT. 

Interface 
Not applicable. 

Inputs 

Not applicable. 

Outputs 

Two lines of heading for Table III (report by dot number) on print file. 

Storage Requirement 
Not applicable. 

Description 

HEDIII writes the heading for Table III. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.4. 5 SOFTWARE COMPONENT NO. 5 (TITLDT) 
Purpose 


Subroutine TITLDT writes part of the title for Table III and the column 
headings for the report. 

Linkages 

TITLDT is called by GRIDOP. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/» 
/INFO/, /RADIAN/, as described in Appendix A. 

Inputs 

Not applicable. 


Outputs 

Table III - Line with segment number and date generated and titles for all 
columns for up to 4 acquisitions on print file. 

Storage Requirements 
Not applicable. 

Description 

TITLDT prints the segment and date generated for each page of the report, 
the grid number, and then prints the column headings for the data for up to 
4 acquisitions. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.5 LISTGRN PROGRAM 
Purpose 

USTGRN prints Table TV which contains green number and brightness ordered 
by green number, 

Linkages 

LISTGRN calls SETP1D, READAI , MOVEIT, P1SRT, and REPGRD, 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/INFO/, /RADIAN/, /REPORT/, /WHDATE/ as described In Appendix A and calling 
arguments. 

Inputs 

File of selected dots 
File of multichannel radiance values 
File of control parameters 

Outputs 

Table IV report on printer file. 

Storage Requirement 
Not applicable. 

Description 

LISTGRN prints the Table IV report of green number and brightness ordered 
by green number. It is the main program which, after reading all the input 
files, processes and outputs the data by moving data to the output buffer, 
calls a sort routine, and then calls the report generator routine to output 
up to 4 acquisitions in one report. It outputs the 5th and 6th acquisitions 
as a second report, if they are requested. 


EXEC parameter &1 &2 
EXEC parameter fil RAD D 
EXEC parameter &1 CC 


3-31 


Flowchart 


Not applicable. 

Listing 

See Appendix B for program. 


3. 4, 5,1 SOFTWARE COMPONENT NO. 1 (READAI) 

Purpose 

Subroutine READAI roads the data describing the selected pixels. 

LI nkages 

READAI In called by LISTGRN. 

Interface 

Interface Is accomplished through common blocks /BUFFER/, /LIST/, / MISC/, 
/INFO/ as described In Appendix A. 

Inputs 

File of selected dots EXLC parameter &1 &2 

Outputs 
None . 

Storage Requirement 
Not applicable. 

Description 

READAI reads the file of selected dots into the matrix LBLDAT. It also 
reads and saves the beginning and ending addresses for each grid and the 
date the last time the file was updated. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 5. 2 SOFTWARE COMPONENT NO* 2 (RDRADN) 

Purpose 

Subroutine RDRADN reads radiance values for selected pixels. 

Li nkages 

RDRADN Is called by LISTGRN. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/INFO/ as described in Appendix A. 

I nputs 

File of multichannel radiance values EXEC parameter &1 RAD D 

Outputs 

None. 


S to rage Requ i reme nt 
Not applicable. 



RDRADN reads the selected lines of radiance values and moves the values for 
each pixel selected into the matrix IDOTRD (after subtracting the soil line 
from the greenness channels). IDOTRD contains the values according to 
channel number. 


Flowchart 
Not applicable, 


Listing 

See Appendix B for program. 
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3. 4. 5. 3 SOFTWARE COMPONENT NO. 3 (MOVEIT) 
Purpose 


Subroutine MOVEIT moves data values from Input matrix to a hold area for 
sorting. 

Li nkages 

MOVEIT is called by LISTGRN. MOVEIT calls CALDOT. 

Interface 

Interface is accomplished through common blocks /LIST/, /INFO/, /RADIAN/ 
as described in Appendix A, and calling arguments. 

Inputs 

Call MOVEIT (ITEMP) 

NAME DIMENSION IN/OUT DEFINITION 

ITEMP (999,6) OUT Hold area for sorting 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

MOVEIT moves two channels of data for one acquisition from the IDOTRD matrix 
into the ITEMP matrix. It also moves the line and pixel for each dot into 
ITEMP and calculates the dot number and stores it. 
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Flowchart 


Not applicable. 

Listing 

See Appendix B for program. 


3. 4. 5. 4 SOFTWARE COMPONENT NO. 4 (REPGRD) 

Purpose 

Subroutine REPGRD writes the Table IV report of green number within grid. 
Linkages 

REPGRD is called by LISTGRN. REPGRD calls HEADIV and TITLEG. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/, /RADIAN/, /REPORT/, /INFO/ as described In Appendix A and calling 
arugments . 

Inputs 

Call REPGRD (NUMBR) 

NAME DIMENSION IN/OUT DEFINITION 

NUMBR - — IN Number of acquisitions to output on 

current report. 


Outputs 

Table IV report of green number on printer Hie. 

Storage Requirement 
Not applicable. 

Descripti on 

REPGRD controls the output of the Table IV report by calling the HEADIV 
subroutine to write the headings, the TITLEG subroutine to write title 
information and column titles for each page of the report, and then writes 
the data for up to four acquisitions. 


Flowchart 


Not applicable. 
Listing 


See Appendix B for program 


3. 4. 5. 5 SOFTWARE COMPONENT NO. 5 (HEADIV) 

Purpose 

Subroutine HEADIV prints the header for the Table IV report, 

LI nkages 

HEADIV Is called by TITLEG. 

Interface 
Not applicable. 

Inputs 

None. 

Outputs 

Table IV header on the printer file. 

Storage Requirement 
Not applicable. 

Description 

HEADIV writes the Table IV heading to the print file. The heading includes 
two lines: 

TABLE IV 

ORDERED BY GREEN NUMBER 

Flowchart 
Not applicable. 

Listing 


See Appendix B for program. 


3. 4. 5. 6 SOFTWARE COMPONENT NO. 6 (TITLEG) 

Purpose 

Subroutine TITLEG writes Table IV report title information and column titles 
for up to four acquisitions. 

Li nkages 

TITLEG is called by REPGRD. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, /INFO/, 
/RADIAN/, /REPORT/, /WHDATE/ as described in Appendix A and calling 
arguments . 

Inputs 

Call TITLEG (NUM8R) 

NAME DIMENSION IN/OUT DESCRIPTION 

NUMBR IN Number of acquisitions to write out 

for current page. 

Outputs 

Table IV report by green number on printer file. 

Storage Requirement 
Not applicable. 

Description 

TITLEG writes the segment and date generated line for Table IV and the 
column headings for each acquisition for up to four acquisitions. If more 
than four acquisitions have been requested, the first four are output and 
then the remaining one or two are output. 
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Flowchart 
Not applicable, 

Listing 


See Appendix B for program. 


3.4.6 MULTIHIT PROGRAM 
Purpose 

MULTIHIT writes the Table V report of multiple "hits". 

Linkages 

MULTIHIT calls SETP1D, READAI , RDRADN, MOVEIT, P1SRT, MATCH, and REPGRD. 
Interface 

Interface Is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/, /RADIAN/, /REPORT/, /WHDATE/ as described in Appendix A and calling 
arguments. 

Inputs 

File of selected dots 
File of multichannel radiance values 
File of control parameters 

Outputs 

Table V report of multihits on printer file, 

Storage Requirement 
Not applicable. 

Description 

MULTIHIT writes the Table V report of multihits for up to six acquisitions. 
After initializing, MULTIHIT calls subrotui'nes to read the selected dot file 
and read the radiance values for each pixel. Subroutines then move the 
radiance values for each pair of channels for an acquisition into a buffer 
for sorting, and then sort the data (first by green number and then by 
brightness within green number). Up to four acquisition are sorted and 
then output as Table V. if there are any other acquisitions, the processing 


EXEC parameter &1 &2 
EXEC parameter &1 RAD D 
EXEC parameter &1 CC 
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sequence Is repeated for up to two more acquisitions. 


Flowchart 
Not applicable. 

Listing 


See Appendix B for orogram. 


3. 4. 6.1 SOFTWARE COMPONENT NO. 1 (READAI) 

Purpose 

Subroutine READAI reads the data describing the selected pixels. 

Linkages 

READAI is called by MULTIHIT. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/» /INFO/ as 
described In Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

READAI reads the file of selected dots into the matrix LBLDAT. It also 
reads and saves the beginning and ending addresses for each grid and the 
date the last time the file was updated. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 6. 2 SOFTWARE COMPONENT NO. 2 (RDRAON) 

Purpose 

Subroutine RDRADN >*eads radiance values for selected pixels. 

Li nkages 

RDRADN is called by MULTIHIT. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, /INFO/ as 
described in Appendix A. 

Inputs 

File of multichannel radiance values EXEC parameter &1 RAD D 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDRADN reads the selected lines of radiance values and moves the values for 
each pixel selected into the matrix IDOTRD (after subtracting the soil line 
from the greenness channels). IDOTRD contains the values according to 
channel number. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 6. 3 SOFTWARE COMPONENT NO. 3 (MOVEIT) 

Purpose 

Subroutine MOVEIT moves data values from Input matrix to a hold area for 
sortl ng. 

Linkages 

MOVEIT is called by MULTIHIT. MOVEIT calls CALDOT. 

Interface 

Interface is accomplished through common blocks /LIST/, /INFO/, /RADIAN/ 
as described in Appendix A and calling arguments. 

Inputs 

Call MOVEIT (I TEMP) 

NAME DIMENSION IN/OUT DEFINITION 

ITEMP (999,6) OUT Hdld area for sorting, 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

MOVEIT moves two channels of data for one acquisition from the IDOTRD matrix 
into the ITEMP matrix. It also moves the line, pixel, and label for each 
dot into ITEMP from LBLDAT. It calls CALDOT to calculate the dot number 
and convert it to alphanumerics for printout. 


Flowchart 


Not applicable. 

Listing 

See Appendix B for program. 


3. 4. 6, 4 SOFTWARE COMPONENT NO. 4 (MATCH) 

Purpose 

Subroutine MATCH creates a list of multiple hits. 

Linkages 

MATCH is called by MULTIHIT. MULTIHIT calls AFRMIN. 

Interface 

Interface Is accomplished through calling arguments. 

Inputs 

Call MATCH (IACQ, NODOTS, INDEX) 

NAME DIMENSION IN/OUT 

IACQ (999,6) IN/OUT 

NODOTS — - IN 

INDEX — OUT 

Outputs 
None. 

Storage Requirement 
Not applicable. 

Description 

MATCH creates the list and counts for the multiple hits report Table V. It 
checks for duplicate green number and brightness among dots and counts the 
number of dots with the same green number and brightness. After determining 
all duplicates, it converts all integer data to alphabetic and ,.cores that 
alphabetic data into the output acquisition matrix. 


DESCRIPTION 

Output data matrix for one acquisition 

Number of dots to process 

Number of entries in multihit report 
for current acquisition. 
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FI owchart 


Not applicable. 
Li s ti nq 


See Appendix B for program, 


3. 4. 6. 5 SOFTWARE COMPONENT NO. 5 (REPGRD) 

Purpose 

Subroutine REPGRD writes the Table V report of multihits. 

Li nkages 

REPGRD is called by MULTIHIT, REPGRD calls HEADV and TITLEG. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/, /RADIAN/, /REPORT/, as described in Appendix A, and calling arguments. 

Inputs 

Call REPGRD (number) 

NAME DIMENSION 
NUMBR — 

Outputs 

Report V on printer file. 

Storage Requirement 
Not applicable. 

Description 

REPGRD controls the output of the heading and column titles and then the 
data for the specified number of acquisitions. 

FI owchart 
Not applicable. 

Listing 

See Appendix B for program. 


IN/OUT DEFINITION 

IN Number of acquisitions to process. 
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3. 4. 6. 6 SOFTWARE COMPONENT NO. 6 (HEADV) 

Purpose 

Subroutine HEADV writes the first page heading for the Table V multiple 
hit report. 

Linkages 

HEADV is called by REPGRD. 

Interface 
Not applicable. 

Inputs 

None. 

Outputs 

Heading for Table V report on printer file, 

Storage Requirement 
Not applicable. 

Description 

HEADV writes the first page heading for the Table V multiple hit report. 

Flowchart 
Not applicable. 

Lis ti ng 

See Appendix B for program. 
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3. 4. 6. 7 SOFTWARE COMPONENT NO. 7 (TITLEG) 

Purpose 

Subroutine TITLEG writes Table V report title Information and column titles 
for up to 4 acquisitions. 

Linkages 

TITLEG is called by REPGRD. 

Interface 

Interface is accomplished through common blocks /MISC/, /INFO/, /RADIAN/, 
/REPORT/, /WHDATE/,as described in Appendix A, and calling argument. 

Inputs 

Call TITLEG (NUMBR) 

NAME DIMENSION IN/OUT DESCRIPTION 

NUMBR — IN Number of acquisitions 

Outputs 

Heading information and column headings for Table V report on printer file. 

Storage Requirement 
Not applicable. 

Description 

TITLEG writes the segment and date generated line for the Table V report. It 
skips to a new page before writing that line, if needed. It then writes 
the column headings for the report and increments the page counter. 


Flowchart 


Not applicable. 
Listing 


See Appendix B for program. 


3.4.7 SCATTER PROGRAM 


Purpose 

SCATTER creates a scatter plots of green number vs brightness for each 
acquisition for all dots on the list. 

Linkages 

SCATTER calls SETP1D, RDSLST, RDRADN, MOVEGB and SCATT. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/» 
/PLOT/ and /RADIAN/ as described in Appendix A, 

Inputs 

File of control parameters 
File of selected pixels 
File of multi-channel radiance values 

Outputs 

Scatter plots of green number vs brightness for each acquisition written 
to printer file. 

Storage Requirement 
Not applicable. 

Description 

SCATTER calls subroutines to (1) read the control parameters, (2) read the 
list of selected pixels, (3) read the radiance values for the selected 
pixels and (4) create the plots. 


EXEC parameter &1 CC A 
EXEC parameter &1 &2 A 
EXEC parameter &1 RAD D 
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Flowchart 


Not applicable. 
Listing 


See Appendix B for program. 


3. 4. 7.1 SOFTWARE COMPONENT NO. 1 ( RDSLST) 

Purpose 

RDSLST reads the list of selected pixels. 

Linkages 

RDSLST is called by SCATTER. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 A 

Outputs 
None . 

Storage Requirement 
Not applicable. 

Description 

RDSLST (1) reads the list of pixels, (2) makes a list of the cluster included 
in the AI labels and (3) counts the pixels for each cluster. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3,4. 7.2 SOFTWARE COMPONENT NO. 2 (RDRADN) 

Purpose 

RDRADN reads the radiance values for selected pixels. 

Linkages 

RDRADN Is called by SCATTER. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

Multi=channel Radiance File EXEC parameter &1 RAD D 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDRADN reads the radiance values corresponding to each pixel. For each 
acquisition, the soil line is subtracted from the greenness value to form 
the green number. 

Flowchart 
Not applicable. 

Li s ti ng 

See Appendix B for program. 
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3,4. 7.3 SOFTWARE COMPONENT NO. 3 (MOVE 68) 
Purpose 


MOVEGB moves one set of green numbers, brightness values and labels to 
arrays Y,X and LABELD. 

Linkages 

MOVEGB Is called by SCATTER. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/ and /RADIAN/, /WHDATE/ as described in Appendix A. 

Inputs 
None . 


Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

MOVEGB moves the green numbers and brightness values to arrays Y and X. 
The labels are moved to array LABELD; blank labels are changed to stars. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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s.. 


Flowchart 


Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 7. 4 SOFTWARE COMPONENT NO. 4 (SCATT) 

Purpose 

SCATT draws a labelled plot of green number vs brightness value for the 
acquisition. 

Linkages 

SCATT is called by SCATTER. SCATT calls HEADSI. 

Interface 

Interface is accomplished through common blocks /MISC/, /GROUPS/ and /’PLOT/ 
as described in Appendix A. 

Inputs 

None. 

Outputs 

SCATTER plot written to printer file. 

Storage Requirement 
Not applicable. 

Description 

SCATT creates a plot of all the dots for 1 acquisition as follows: The 
plot heading is written to the printer file. The plot and its axes are 
created. The points are represented on the plot by their label with 
multiple points represented by stars. The plot is written to the printer 
file. 


3. 4.7. 5 SOFTWARE COMPONENT NO. 5 (HEADSI) 

Purpose 

HEADSI writes the plot heading. 

Linkages 

HEADSI is called by SCATT. 

Interfac e 

Interface is accomplished through common blocks /MISC/ and /GROUPS/ as 
described in Appendix A. 

Inputs 

None. 

Outputs 

Plot heading written to printer file. 

Storage Requirement 
Not applicable. 

Description 

HEADSI writes the plot heading including the segment number, date generated, 
soil line, categories of interest, soil line and acquisition date. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.8 PL0T4 PROGRAM 


Purpose 

PLOT4 creates plots of green number vs time and brightness value vs time 
for all cots in the file. 

Linkages 

PL0T4 calls SETP1D, RDSLST, RDRADN , MOVEAD and PL0TT4. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

File of control parameter EXEC parameter &1 CC A 

File of selected dots EXEC parameter &1 &2 A 

Outputs 

Plots of green number vs time and brightness value vs time for all dots 
written to the printer file. 

Storage Requirement 
Not applicable. 

Description 

PL0T4 calls subroutines to (1) read the control parameter infromation, 

(H) read the file of AI pixels, (3) read the file of radiance values and 
(4) create plots (4 pixels per page) of green number vs time and brightness 
value vs time for all dots in the LIST file. 


Flowchart 


Not applicable. 
Listing 


See Appendix B for program. 


3. 4. 8.1 SOFTWARE COMPONENT NO. 1 (RDSLST) 

Purpose 

RDSLST reads the data from the LIST file. 

Linkages 

RDSLST is called by PL0T4. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/GROUPS/, /PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 A 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDSLST (1) reads the list of pixels, (2) makes a list of the clusters 
included in the AI labels and (3) counts the pixels for each cluster. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 8. 2 SOFTWARE COMPONENT NO. 2 (RDRADN) 

Purpose 

RDRADN reads the radiance values for the selected pixels. 

Linkages 

RDRADN is called by PL0T4. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT / and /RADIAN/ as described in Appendix A. 

Inputs 

File of multi -channel radiance values EXEC parameter «1 RAD A 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDRADN reads the radiance values corresponding to each pixel. For each 
acquisition, the soil line is subtracted from the greenness value to form 
the green number. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 8. 3 SOFTWARE COMPONENT NO. 3 (MOVEAD) 
Purpose 


MOVEAD changes an array of acquisition dates in display format to an array 
of acquisition dates to be use as X coordinates. 

Li nkages 

MOYEAD is called by PL0T4. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/GROUPS/, /PLOT/ and /RADIAN as described in Appendix A. 

Inputs 

None. 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

MOVEAD changes an array of acquisition dates from display format to 
computational numbers by separating the characters and calling subroutine 
I4A1BN to convert them to integers. These integers are converted to X 
coordinates by changing the dates to 41 intervals through the year. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 8. 4 SOFTWARE COMPONENT NO. 3 (PL0TT4) 

Purpose 

PL0TT4 creates the labelled plots of green number vs time and brightness 
value vs time (4 pixels per page). 

Linkages 

PL0TT4 Is called by PL0T4. PL0TT4 calls HEADP4 and AFRMIN. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, /GROUPS/, 
/PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

None. 


Outputs 

Labelled plots written to printer file. 

Storage Requirement 
Not applicable. 

Descri ption 

PL0TT4 processes the list of dots 4 dots per plot. The complete list is 
processed as follows. Four consecutive pixels with nonzero line numbers are 
located and moved to a matrix JLIST. Graphs are created and labelled for 
the green number vs time plots, the points are added to the plots and the 
plots are written to the printer file. Graphs are created and labelled 
for the brightness value vs time plots, the points are added to the plots 
and the plots are written to the printer file. 
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Flowchart 


Not applicable. 
Listing 


See Appendix B for program. 


h 

3. 4. 8. 5 SOFTWARE COMPONENT NO. 5 (HEADP4) 

Purpose 

HEADP4 writes the plot heading. 

Linkages 

HEADP4 is called by PLOTT4. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/ and /GROUPS/ 
as described in Appendix A. 

Inputs 

None. 

Outputs 

Plot heading written to printer file. 

Storage Requirement 
Not applicable. 

i 

Description 

HEADP4 writes the plot heading containing the segment number, report date, 
categories plotted, acquisition dates and soil lines. 

Flowchart 
Not applicable. 

Listing 



See Appendix B for program. 


3.4.9 PLOT! 8 PROGRAM 
Purpose 

PLOT! 8 makes plots of green number vs brightness value through time. 
Linkages 

PLOT! 8 calls SETP1D, RDSLST , RDRADN, MOVEAD and PLT18. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/ , 
/GROUPS/, /PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 A 

File of control parameters EXEC parameter SI CC A 

Outputs 

Plots of green number vs brightness through time for all dots written to 
printer file. 

Storage Requirement 
Not applicable. 

Description 

PL0T18 calls subroutines to (1) read the control parameter information, 

(2) read the file of selected pixels, (3) read the file of radiance values 
and (4) create plots (18 pixels per page) of green number vs brightness 
value for all dots in the list file. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 9.1 SOFTWARE COMPONENT NO. 1 (RDSLST) 

Purpose 

RDSLST reads the list of selected pixels. 

Linkages 

RDSLST Is called by PL0T18. 

Interface 

Interface Is accomplished through cornnon blocks /BUFFER/, /LIST/, /MISC/, 
/PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 A 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDSLST (1) reads the list of pixels, (2) makes a list of the cluster included 
iri the AI labels and (3) counts the pixels for each cluster. 

FI owchart 
Not applicable. 

Listing 


See Appendix B for program. 


3. 4. 9. 2 SOFTWARE COMPONENT NO. 2 (RDRADN) 

Purpose 

RDRADN reads the radiance values for the selected pixels. 

LI nkages 

RDRADN Is called by PL0T18. 

Interface 

Interface Is accomplished through common blocks /BUFFER/, /LIST/, /MI SC/ , 
/PLOT/ and /RADIAN/ as described In Appendix A. 

Inputs 

File of multi-channel radiance values EXEC parameter ftl RAD D 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

RDRADN reads the radiance values corresponding to each pixel. For each 
acquisition, the soil line is subtracted from the greenness value to form 
the green number. 

FI owchart 
Not applicable. 


Listing 

See Appendix B for program, 
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3. 4, 9. 3 SOFTWARE COMPONENT NO. 3 (MOVEAD) 

Purpose 

MOVEAD changes an array of acquisition dates in display format to an array 
of acquisition dates to be used as X coordinates. 

Linkages 

MOVEAD is called by PL0T18. 

Interface 

Interface is accomplished through common blocks /BUFFER/, /LIST/, /MISC/, 
/GROUPS/, /PLOT/ and /RADIAN/ as described in Appendix A. 

Inputs 

None. 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

MOVEAD changes an array of acquisition dates from display format to 
computational numbers by separating the characters and calling subroutine 
I4A1BN to convert them to integers. These Integers are converted to X 
coordinates by changing the dates to 41 intervals through the year. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 

3-73 


3. 4. 9.4 SOFTWARE COMPONENT NO. 4 (PLT18) 

Purpose 

PLT18 draws labelled plots of green number vs brightness through time. 
Linkages 

PLT18 is called by PL0T18. 

Interface 

Interface is accomplished through common blocks /LIST/, /MI SC/, /PLOT/ and 
/RADIAN/ as described in Appendix A. 

Inputs 

None. 


Outputs 

Labelled plots written to printer file. 

Storage Requirement 
Not applicable. 

Description 

PLT18 processes the list of dots 18 dots per page. The complete list is 
processed as follows: Four consecutive pixels with nonzero line numbers 

are located and moved to a matrix JLIST. The plot axes are created labelled 
the points are added to the plots and the plots are written to the printer 
f i 1 e . 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3. 4. 9. 5 SOFTWARE COMPONENT NO. 5 (HEQP18) 

Purpose 

HEDP18 writes the report heading. • 

Linkages 

HEDP18 is called by PL0T18. 

Interface 

Interface is accomplished through common blocks /MISC/ .and /GROUPS/ as 
described in Appendix A. 

Input s 

None. 

Outputs 

Plot heading written to printer file. 

Storage Requirement 

* 

Not applicable. 

Description 

HEDP18 writes the plot heading including the segment number, date of report, 
categories plotted, acquisition dates and soil lines. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.10 WRTRIG PROGRAM 


Purpose 

WRTRIG copies a selected portion of the selected dots file onto a new file. 

Linkages 
Not applicable. 

Interface 

Interface is accomplished through common blocks /MISC/, as described in 
Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 LIST 
Outputs 

File of selected dots EXEC parameter &1 &2 

Storage Requirement 
Not applicable. 

Description 

WRTRIG reads the selected dot file LIST and writes onto the output selected 
dot file the second and third words, which are the line and pixel number, 
respectively. Four characters of blanks are left as the first word of the 
new file. 

Flowchart 
Not applicable. 

Listin g 

See Appendix A for program. 
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3.4.11 COMPARE PROGRAM 
Purpose 

COMPARE compares the original selected dots file with the updated selected 
dot file and prints a discrepancy report. It also outputs a file to be 
input to the proportion estimator program. 

Linkages 

COMPARE calls SETP1D, READAI , IBSUM, REDLST, COMBLA, HEADII , GRDHED, 

GRDPIX, and BNI4A1 . 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, and /INF0/ 
as described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 

File of control parameters EXEC parameter &1 CC 

Outputs 

Table IB summary on printer file 
Table II report on printer file 

Storage Requirement 
Not applicable. 

Description 

COMPARE outputs Table IB and Table II. It controls the calling of the 
initialization, the output of Table IB, the reading of the respective input 

files, and then the output of Table II according to grid. Table II contains 

dots which have a difference in line or pixel number between the two input 
lines or have a label missing on the updated selected dot file. 
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Flowchart 


Not applicable. 

Listing 

See Appendix B for program. 


3.4.11.1 SOFTWARE COMPONENT NO. 1 ( READAI ) 

Purpose 

Subroutine READAI reads the data describing the selected pixels. 

Linkages 

READAI is called by COMPARE. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, /INF0/, as 
described in Appendix A. 

Inputs 

File of selected dots EXEC parameter &1 &2 

Outputs 

None 

Storage Requirement 
Not applicable. 

Description 

READAI reads the file of selected dots into the matrix LBLDAT. It also 
reads and saves the beginning and ending address for each grid and the date 
for the last time the file was updated. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.11,2 SOFTWARE COMPONENT NO. 2 (IBSUM) 

Purpose 

Subroutine IBSUM writes the Table IB report. 

Linkages 

IBSUM is called by COMPARE. IBSUM calls HEADIB, 

Interface 

Interface is accomplished through common blocks /MISC/, /INF0/, as described 
in Appendix A. 

Inputs 
None . 

Outputs 

Table IB summary report on printer file. 

Storage Requirement 
Not applicable. 

Description 

IBSUM writes the Table IB summary by calling the header subroutine HEADIB 
and then writing the needed information. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.11.3 SOFTWARE COMPONENT NO. 3 (HEADIB) 

Purpose 

Subroutine HEADIB writes the heading for the Table IB report. 

Li nkages 

HEADIB is called by IBSUM. 

Interface 

Interface is accomplished through common blocks /MISC/ as described in 
Appendix A. 

Inputs 

None. 

Outputs 

Writes all heading information for Table IB on the printer file. 

Storage Requirement 

» 

Not applicable. 

Description 

HEADIB writes the heading information and acquisition dates for the Table 
IB report. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.11.4 SOFTWARE COMPONENT NO. 4 (REDLST) 

Purpose 

Subroutine RDLIST reads the original LIST file which describes the selected 
pixels and stores the Information. 

Linkages 

RDLIST Is called by COMPARE. 

Interface 

Interface Is accomplished through common blocks /LIST/, /MISC/, /INFjD/ as 
described in Appendix A. 

inputs 

File of original selected dots EXEC parameter &1 LIST 

Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

REDLST reads the original selected dots file LIST so that a combined file of 
current line/pixel designations and grid numbers may be built. 

Flowchart 
Not applicable. 

Listin g 


See Appendix B for program. 


3.4.11,5 SOFTWARE COMPONENT NO. 5 (CQMBLA) 

Purpose 

Subroutine COMBLA writes a selected dot file with information from LIST and 
the current analyst file of dots. 

Linkages 

COMBLA is called by COMPARE. 

Interface 

Interface is accomplished through common blocks /LIST/, /MISC/, /INF0/ as 
described in Appendix A. 

Inputs 

None. 

Outputs 

File of selected dots EXEC parameter &1 &2 

Storage Requirement 
Not applicable. 

Description 

COMBLA writes a file of selected dots. This combined file contains the first 
three words of the current selected dot file and the last two words of the 
LIST file. Words four and five are the cluster number and grid number, 
respecti vely. 

Flowchart 
Not applicable. 

Listing 

See Appendix 8 for program. 


3-83 


3.4.11.6 SOFTWARE COMPONENT NO. 6 (GRDHED} 

Purpose 

Subroutine GRDHED writes the site and date generated line for the Table II 
report. 

Linkages 

GRDHED is called by COMPARE. 

Interface 

Interface Is accomplished through common block /MISC/ as described in 
Appendix A. 

Inputs 

None. 

Outputs 

Heading line for Table II report on printer file, 

Storage Requirement 
Not applicable. 

Description 

GRDHED writes the site and date generated heading on all pages of the Table 
II report, except the first page. This subroutine goes to a new page and 
increments the page counter. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.11.7 SOFTWARE COMPONENT NO. 7 (HEADII) 

Purpose 

Subroutine HEADII writes the heading Information for the Table II report. 
Linkages 

HEADII Is called by COMPARE. 

Interface 

Interface is accomplished through common block /MISC/ as described in Appendix 
A. 


Inputs 

A 

None. 

Outputs 

Headings for Table II on printer file. 

Storage Requirement 
Not applicable. 

Description 

HEADII writes all headings and acquisition dates for the Table II report onto 
the printer file. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.11.8 SOFTWARE COMPONENT NO, 8 (GRDPIX) 

Purpose 

Subroutine GRDPIX writes the grid heading for the Table II report. 
Linkages 

GRDPIX Is called by COMPARE. 

Interface 

Interface Is accomplished through calling arguments. 

Inputs 

Call GRDPIX (IWHGRD) 

NAME DIMENSION IN/OUT DEFINITION 
IWHGRD IN Grid number 


Outputs 

Lines of heading for Table II report on printer file, 

Storage Requirement 
Not applicable. 

Description 

GRDPIX writes the grid number and the column headings for the Table II report 
onto the printer file. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4,12 LIBRARY PROGRAMS 

3.4.12.1 SOFTWARE COMPONENT NO. 1 (AFRMIN) 

Purpose 

Subroutine converts the alphabetic characters from Integer Input. 
Linkages 

AFRMIN calls BNI4A1 . 

Interface 

Interface is accomplished through calling arguments. 

Inputs 

Call AFRMIN (INPUT, NOCHAR, IOUTPT) . 


NAME DIMENSION 

IN/OUT 

DESCRIPTION 

INPUT — 

IN 

Integer data to be converted to 
alphabetic. 

NOCHAR — 

IN 

Number of characters to convert. 

IOUTPT — 

OUT 

Converted data. 


Storage Requirement 
Not applicable. 

Description 

AFRMIN converts input integer data to A format. The number of characters 
to convert is input and any leading zeros are converted to blanks. 

Flowchart 
Not applicable. 


Listing 

See Appendix B for program. 
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3.4.12.2 SOFTWARE COMPONENT NO. 2 (CALDOT) 

Purpose 

Subroutine CALDOT calculates the dot number for current dot. 
Linkages 

CALDOT calls BNI4A1. 

Interface 

Interface is accomplished through calling arguments. 

Inputs 

Call CALDOT (LINE, ISAMPL, IMODT) . 


NAME 

DIMENSION 

IN/ OUT 

DESCRIPTION 

LINE 

— 

IN 

Lins number for current dot. 

ISAMPL 

— 

IN 

Sample number for current dot. 

IMDOT 


OUT 

Dot number based on line and sample 
number in A format, left-justified. 


Outputs 

None. 

Storage Requirement 
Not applicable. 

Description 

CALDOT calculates the dot number for the current dot based on its line and 
sample number. The calculation is done only for line and samples that are 
modulo 10. The calculated dot number is then converted to A format, with 
leading zeros changed to blanks. 


Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 


3.4.12.3 SOFTWARE COMPONENT NO. 3 (P1SRT) 

Purpo e 

CT,.. .,'. lfcl W,Tt Ji 

Sort one set of line numbers, samples, green numbers and brightness values. 
Li nkages 

^ — .in ■■ . wwUc r.rr.< 

P1SRT is a library routine. 

Inte rfac e 

Interface is accomplished through common blocks /BUFFER/ » /LIST/, /INP0/ and 
/PLOT/ as described in Appendix A and calling arguments. 

Inputs, Outputs 

CALL P1SRT(ITEMP, ISRTOl) 


NAME 

DIMENSION 

in/ out 

DEFINITION 

ITEM 

(999,6) 

IN/ OUT 

Data to be sorted 

ISRTWH 


IN 

Index to second dimension of ITEMP 


Storage Requir eme nt 
Not applicable. 

Desc ription 

P1SRT sorts the data in matrix ITEMP, The subroutine preserves the previous 
sorts on the data. 

FI owchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4.12.4 SOFTWARE COMPONENT NO. 4 (SETP1D) 

Pu r pose 

Read and analyse the records describing the user specified Information. 


Usages 

SETP10 is a library routine. SI TP1D calls NUMB and MOVSYN. 

Inter foty' 

Interface is accomplished through common blocks /GROUPS/, /INF0RM/» /MISC/ » 
/RADIAN/ and /REQUIR/ as described in Appendix A. 


Inputs 

(Segment number) CC l XI C parameter SI CC A 
Outputs > 

User supplied information written on printer file. 

Storage Requ i remeot 
Not applicable. 

Desc ript ion 

SETP1D validates and saves the user specified information on the numbers 
of dots, channels, soil lines, acquisition dates, selected labels, date of 
report, segment number, analyst name, file name and "labelled or unlabelled 
switch" for plots. 

FI owch art 
Not applicable. 

Listi ng 

See Appendix B for program. 


3.4.12,5 ”OFTWARF COMPONENT NO. 5 (NUMB) 

Purpose 

NUMB moves free form numerical Information to an array, 
linkages 

NUMB Is called by SETP1D. 

Interfac e 

Interface Is accomplished through calling arguments. 

Inputs , Outputs, 

CALL NUMB (CARD, NUMVEC) 


NAME 

DIMENSION 

IN/OUT 

DEFINITION 

CARD 

80 

IN 

User defined record 

NUMVEC 


OUT 

Array of numbers 


Storage Requirement, 

Not applicable. 

Description 

NUMB moves the user defined numbers from a free form record to an array. 

F lowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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3.4,12.6 SOFTWARE COMPONENT NO. 6 (MOVSYM) 

Purpose 

MOVSYM moves free form alphanumeric information to an array. 
Li nkages 

MOVSYM is called by SETP1D, 

Interface 

Interface is accomplished through calling arguments. 

Inputs » Outputs 

CALL MOVSYM(CARD, I TEMP, NAME) 


NAME 

nitpsioN 

IN/QUT 

DEFINITION 

CARD 

BO 

IN 

User defined record 

ITEMP 

10 

OUT 

Array of alphanumeric information 

NAME 

*=— 

OUT 

Name of group symbol 


Storage Requirement 
Not applicable. 

MOVSYM moves the user defined names from a free form record to an array. 

Flowchart 
Not applicable. 

Listing 

See Appendix B for program. 
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4.0 OPERATION 


4.1 OPERATING INSTRUCTIONS 

CLUSTAPE, SELDOTS, GRBRDOTS, LISTDOT, LISTGRN, SCATTER, PL0T4, PL0T18, 
MULTIHIT, WRTRIG, COMPARE are operational on the IBM 3031 computer at LARS, 
West Lafayette, Indiana. 

The programs, EXEC files and sample CC files can be loaded from tape, 
file 

CLUSTAPE is executed by entering the following command after signing on 
the system: 

CLUSTAPE (Segment Number), (Tape Number), (Fil^ Number). 

Text output is on the terminal and line printer which are assigned in the 
EXEC, and the 1-channel tape file is on the tape and file designated in the 
execute statement. A disk file of the cluster values is created, 

SELDOTS is executed by entering the following commands: 

SELDOTS (Segment Number) 

Text output is on the terminal and line printer which are assigned in the 
EXEC. Cluster values are read from the disk file created by CLUSTAPE, 
if proportional cluster distribution is selected. A file of selected dots 
is created. 

GRBRTAPE is executed by entering the following commands: 

GRBRTAPE (Segment Number), (Tape Number), (Tape File). 

Text output is on the terminal and line printer which are assigned in the 
EXEC, and the multi-channel tape file is on the tape and file designated 
in the execute statement. A disk file of the radiance values is created. 
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LISTDOT, USTGRN, SCATTER, PLOT4, PL0T18 and MULTIHIT are executing their 
respective EXEC file, 

(Program Name), (Segment Number), (File Name) 

Text output is on the terminal and line printer which are assigned in the 
C. The file name designates (1) the list of selected dots created by 
SELDOTS (LIST) or (2) the list of selected dots created by WRTRIG, 
modified by tre analyst and further processed by COMPARE. 


COMPARE is executed by entering the following commands: 
COMPARE (Segment Number), (File Name 1), (File Name 2) 


Text output is on the terminal and line printer which are assigned in the 
EXEC* Fils name 1 is an input file of selected dots created by WRTRIG ** 
File name 2 is the output file of selected dots .... 


4;?. EX EC FILt- S 

4.2.1 CLUSTAPf- FXFC A PlJROl.tF / LARS 3'Ul 


(.CONTROL OFF 
REMOTE f TO HOUSTON 
SPOOL E HOLM 
Gfc.TOISK JSC7 7M 191 
CP DEI. 1H1 
^•riFEP - 1 

-•GET GETDISK TFMP 1M CLFAR 
5, IF &RETCODF 1-0 0 NSKIP 7 
MF (.BEEP LE 7 (.SKIP 1 
&TYPE NO 10 CYL TEMP ~ 

CP Q T 
(.EXIT 

CP SLEEP S M[n 
&PFFP a &RFFP ♦ 

XGOTO -GET 
GETDISK LARSYS 
TAPMOUNT c>? TAPi 
(.IF (.INDEX NF 1 
(IF (.3 FQ 1 (.SKIP 
(.SP = (.3 - 1 
TAPE FSF (.SP 
FILE OFF 3 TF PM (PERM 

I)ISK u LISTING 0 

Ftpifooi nr - 
FT09FOOI 
FT 1 IF 00 1 
FT l IF 00? 

FT 1 1 F 0 0 3 
FT I 1 F 0 0 A 
FT1 1F00S 
FT1 1F006 
FT1 1F007 
FT11F00O 
FT11FO0 


<S0 R M/A PASS AllCOIN 


OF T ACM 


DISK AVAILABLE 


l 


PO 

XSKIP 
2 


3 


FILFUEF 

F1LFOEF 

FILEDEF 

FILFDEF 

FILEDEF 

FILFDEF 

FILEDEF 

FILEDEF 

FILFDEF 

FILEDFF 

FILFDEF 

FILFDEF 

HtSBIF 

FILFDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILEDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILFDEF 

FILEDEF 

FILFDEF 

FILEDEF 

FILEDFF 

FILFDEF 

FILEDEF 


FT 1 1 FO 1 0 
FT11F011 
FT11F01? 
FTllFon 
FT 1 1 FO 1 A 
FT11F0IS 
FT11F01A 
FT11F017 
FniFOlR 
FT1IFOIP 
FT1 1F020 
FT1 1F0?I 
FT11F02? 
FT11F023 
FT1IF02A 
FT 1 1 FOPS 
FT l 1 F026 
FT 1 1F0P7 
FT 1 1 FOPS 
FT 1 1 F0?Q 


:sk 

DISK 

TAP' 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 

TAP 


(HLKSIZF 

(HLKSIZF 

(HLKSI7F 

(HLKSIZF 

(HLKSIZF. 

(HLKSI7F 

(HLKSI7F 

(HLKSIZE 

(HLKSIZF 


(PFPM 

U C C A (LPt’CL SO HLKSIZE bO PERM 
FILE KT09F001 AJ (LPECL 320 HLKSIZE 320 PERM 
KECFM U DEN 1600 PERM 
RECFM U DEN 
RECFM U DEN 
RECFM U DEN 
RECFM U DEN 
RECFM U DEN 
RECFM U DFN 
RFCFM IJ DEN 
RECFM U DEN 
RFCFM U DEN 
RECFM U U£N 
RFCFM IJ DEN 
RECFM U DEN 
RECFM U DEN 
RECFM IJ DEN 
RF-CFM U DEN 
RFCFM U DFN 
RECFM U DEN 
RFCFM U DF.N 
RECFM U DEN 
RECFM <J DEN 
RECFM U DEN 
RECFM IJ DEN 
RECFM U DEN 
RECFM U DEN 
RECFM U DEN 
RFCFM U DEN 
RECFM IJ DEN 
RECFM U DFN 


(HLKSIZF 

(HLKSIZF 
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(HLKSIZF 

(HLKSIZF 

(HLKSIZF 

(HLKSIZF 

(HLKSI7E 

(HLKSIZE 

(HLKSIZE* 

(HLKSIZF 

(HLKSIZE 

(HLKSIZF 

(HLKSIZF 

(HLKSIZF, 

(BLKSI7F 

(HLKSIZF 

(HLKSIZE 

(HLKSIZE 

(HLKSIZF 
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3060 
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3060 
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3060 
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1600 
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1600 
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PERM 
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PERM 
PERM 
PERM 
PERM 
P£RM 
PI* RM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
PERM 
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FILFOEF 

FILKoIf FtUFn'V t AM i 
FILFOEF FT11F013 TAPI 
FILFOEF FT11F03A TAPI 
FILFOEF FT11F03S TAPI 
FILFOEF FT11FOV* TAPI 
FILFOEF FT UFO 17 TAPI 
FILFOFF FT 1 1FO TAPI 

f» v i r f\r*P* i » r a r trn 


FTllFO.in TAPI 
FT 1 1 F 03 1 TAPI 
FT11F03P TAPI 


FILFOEF 

FIlIdEF Ftn'FOAl TAPI (HLK 

FII FOFF FT1U »»4P TAPI (Ml, K 
FILFOFF miP.!4* TAPI (KK 
FILFOFF FT 1U ».4A TAPI ( M K 
FILFOFF FTUF.iAS TAPI (*LK 
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FILFOFF FTUF.w + 7 TAPI (•«! k 
FILFOFF FTHFOAH TAPI (Ml K 
FILFOFF FTUF “40 TAP l (ML* 
FILFOFF FTllF'M TAPI (hLK 
FII FOFF PTUF-'M TAPI (HLK 
FILFOFF FTUFmSp TAPl (‘«LK 
FILFOFF FT 1 IF "S’* TAPI (Ml K 
F ILF OFF f'mK M CLUSTER 


FT11F0V) TAPI 
FTUF040 TAPI 


TAPI 

TAPI 

TAPI 
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(HLKSIZK 3060 
(HLKSI/F P060 
(HLKSI7F 3060 
(HLKSI7F 3060 
(HLKSl/.F 3060 
(bLKSI/F 3060 


(HLKSI/F 
(HLKSI/F 
(HLKSI/F 
(HLKSI/F 
(HLKS1ZF 
(Ml, KS I /« 
(Ml KSI/T 
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(mlks .1 ?y 
(MLKSI/h 
(*<i ksi n 
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F P 1 M 
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U pkPL 


GLORAL TXTLix FUmIRAN C-isi lh 
LpAO CL'ISTAPF ( PLF AP ST a^T NMMAP 
CP RFMOTE K T«> HOUSTON 
CP SPOOL ' PRINT FP HOLO COMT 
PRINT M LI^TlNt- n 
CP TAG OUF UK V K 
L * * 0 (Al l 


PECFM U OKN 
KECFM U OKN 
RFCFM J UEN 
PKCFM U OKN 
RKCFM U OKN 
RKCFM U UEN 
RKCFM u ofcN 
PKCFM U OF-N 
PFCFM U oEN 
RFCFM U OF N 
PKCFM U OKN 
RECFM U OKN 
phCFm U Oh N 
RFCFM ,j pt-N 
RFCFM J oh N 
RhCFM u Dl-N 
•IK Cf M II PFN 
KhCFM u OKN 
PL CP M U OKN 
khCPM il LlK N 
wKOPM uKN 
PKCFM ll OKN 
Pi- CK M 1 1 OKN 
Pl-CKM ij l)KM 
<?00 HLKSI/t 


1600 PERM 
1600 PKRM 
1600 PKRM 
1600 PFRM 
1600 PERM 
1600 PERM 
1600 PERM 
1600 PKRM 
1600 PKRM 
1600 PKRM 
1600 PKRM 
1600 PKRM 
16011 PKRM 
1600 PKR3 
1600 PKRM 
160(1 PKRM 
16(H) PKRM 
1600 PKRM 
1600 PKRM 
1 6 1) ft PFRM 
1600 PKRM 
1600 PKRM 
1600 PKPM 
1600 PKRM 

MOO XTKMT ISO PFRM 



4.2.2 SELDOTS FXhC 


PllRDUP / L4kS TO 3 1 


&CONTROL OFF 


Fit FOEF 
FILFOFF 
FILFOFF 


EiuFnge: 

F II 


1 TFPM (PFRm 

6 OKk M LISTING 0 (LRFCL 1 n MUKSI2F H3 XTFNT HOQ PERM 
21 DISK U rc A (IRbCL .MO hLKSV?K HO PtRO 
,-_***. U OI^K MPHUW A (I RFa HO HuKSI/F HO PERM 

r.tl K18 U e^ r f<iVfe« XTtNT 180 Pf - R 

KbSSE r r5K!?WA«¥ia U!;W TW( ’ ,n 4 ,LH£CL 80 HUSm: 80 WERM 

LOAD SELOOTS (Cl FAR START NOMA'» 

PRINT U LISTING I) 

CP TAG OUF OF V F 
L # * 0 (ALL 
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* 


i " _S 


4,2*3 GOBRTAPf* MFC 


PijRDhe / L-ARH 


6 C 0 NTR 0 L OFF 
REMOTE F TO hoiKTOM 
SPOOL E HOLD 
CP DFT 1 A 1 

GFTDISK JSC 77 M lwl ISO k H/ 

fVHFF p x ] 

-GET GFTOISK 1 Fmp ?m CUA* 

UF &RKTCODF EU 0 ASK IP 7 
UF 6 .RKFP IF / *SKI 0 3 
atypf no in rru rF mp oisk avail a h f 
CP O T 
AFX I T 

CP SLEEP S m I » i 
AHFpP a APFFP ♦ 1 
AGOTO -GET 
TAPMOIJNT A? TAPI SO 
AIF A INDEX MF I ASKIP J 
AIF A 3 FO 1 FSKIP ? 

&SP * M “ 1 
TAPE FSF ASP 
FILFDFF 3 TFP‘i (PFPM 
FILFOFF 6 DISK Kl LISTING I) 

FILFDHF FTP IF 001 DISK A l CC 
FILFDFF FT OPE 00 1 DISK FILE 
FILFOFF FT 11 FOOT TAPI (BLKS 
FILFDFF F T 1 1 F 0 0 3 TAPI (HLKS 
FILFDFF FTllFOOi TAPI (HLKS 
FILFDEF FTllFMOA TAPI CilLKS 
FILFDFF FT 1 HM 0 S TAPI {HLKS 
FILFDFF FT 11 F 006 TAPI (HLKS 
FILFDFF FTI 1 E 007 TAPI (HLKS 
FILFDFF FTllEnns TAP! (HLKS 
FILFDEF FT I 1 POOR TAPI (HLKS 
FILFOFF FT 1 FOlO TAPI (HLKS 
FILEOFF FT 11 Ff « 1 1 TAPI (HLKS 
FILFDFF FT UFO IP I API (HLKS 
FILEOFF FTllFnn TAPI (HLKS 
FILFDFF FTilF.lU TAPI (HLKS 
FILFDFF FT 1 1 EO 1 s fAPl (HLKS 
FILFDFF FT 1 1 Fi i 1 6 TAPI (HLKS 
FILFDEF FT 1 1 FO 1 7 TAPI (HLKS 
FILFDEF FT 1 1 Fu 1 A TA »1 (HLKS 
FILFDFF FT 11 F 01 O TAPI (HLKS 
FILFDEF FTllFOPO TAPI (HLKS 
FILFDFF FT 11 F 0 ?) 1 AP 1 (Hl.KS 
FILFDFF FTllFopA TAPI (HLKS 
FILFDFF FTI 1 F 0 * 3 TAPI (HLKS 
FILEOFF FT 11 F, 1*4 TAPI (HLKS 
FILFDFF FT 1 1 F OPR TAPI (kLKS 
FILE’DEF FTlir,i?A tapi (HLKS 
FILFDEF FTUFOP 7 TAPI (HLKS 
FILFDFF PTllFOPH TAPI (bLKS 
FILFDEF FT 1 lFii?° TAPI (HLKS 
FILE:DFF FTllFnn TAPI (HLKS 
FILFDFF FT 11 Finn TAPI (HLKS 
FILFDFF FT 11 F 031 TAPI (HLKS 
FILFDEF FT 1 1 Fn IP TAPI (HLKS 
FILFDEF FTllFnn TAPI (HLKS 
FILFOFF FTI IF M .14 TAP). (Hl.KS 
FILEOFF FT 11 F 03 S TAPI (BLKS 
FILFDFF FT 1 1 FOSE fAPl (HLK.S 
FILFDFF PT 11 F 037 TAPI (HLKS 
FILFDFF FT 11 FH 3 H TAPI (HLKS 
FILFDFF FTllFmn TAPI ( bLKS 
FILFDFF FTUF 03 P TAPI (HLKS 
FTLFDFF FT 11 F 040 TAPI (HLKS 
FILFDFF FT 11 F 04 ] TAPI (HLKS 
FILFDEF FT 1 1 F 04 ? TAPI (RLKS 
FILFDFF FT 11 F 041 TAPI (BLKS 
FILFDFF FTllF.WA TAPI (HLKS 


'A PASS AllCOIN 
DETACH 


FILFDFF 

FitfBff 

FILFDFF 
FILFDFF 
F ILE.DEF 
FILFDFF 
FILFDEF 
FILFDFF 
FILFDFF 
FILFDEF 
FILFDFF 
FILFOFF 
FILFDFF 
FILEOFF 
FILFDFF 

file:def 

file:dff 

FILEIDEF 

FILFDEF 

FILFDFF 

FILFDEF 

FILFDFF 

file:dff 

FILFDFF 

FILEOFF 

FILFDFF 

FILE’DEF 

FILFDEF 

FILFDFF 

FILFDEF 

file;dff 

FILFDFF 

FILFDFF 

FILFDEF 

FILFDEF 

FILFOFF 

FILEOFF 

FILFDFF 

FILFDFF 

FILFDFF 

FILFDFF 

FILFDFF 

FTLFDFF 

FILFDFF 

FILFDEF 

FILFDFF 

FILFDFF 


I NO I) (PFBM 

M CC A (I.PECL MO HLKSIZF ‘SO PERM 
FILE ETOOFOOl A 1 (LHF.Ct 1*0 HLKSI/F 
( HLKS I /T 3060 RECFM i| DEN 1600 PERM 

(HIKSI/E, 1060 RFCFM »J DEN 1600 PERM 

(HLKSI/F 3060 RFCFM U DEN 1600 PERM 

(ilLKSI/F 3060 PE CFM U DEN ibOft PFRM 

(hlKSI/F 3060 PF.CFM U DEN lbOO PERM 

(HLKSI/E' 3060 RtCFM U DEN 1600 PERM 

(HLKSI/E 30s0 PFCFM ll DEN 1600 PERM 

(HLKSI/F 1060 PFCFM U DEN 1600 PERM 

(HLKS I /E 3060 RFCFM U DEIN lbOO PERM 

(BLKSI7EI 30h0 PECFM • J QFN 1600 PERM 

(HLKSI/K 3060 PECFM (J UF N 1600 PEIRM 

(HLKSI/E 3060 RtCFM ij DEN 1600 PERM 

( BLKS 1 /E 3060 RhCEM IJ DEN 1600 PERM 

(BLKSI/E 3060 RtCFM U DtN 1600 PE1RM 

( HLKS I Zb 3060 PFCFM U DEN 1600 PERM 

(HLKSI/F 3060 RECFM U DEN 1600 PERM 

(HLKS I /E 3060 RECFM U DEN lbOO PERM 

(HLKS I/E 3060 PFCFM U DEN 1600 PERM 

(HLKS I /E 3060 RECFM U DEN lbOO PERM 

(HLKSI/F 3060 RECFM U UEN ihOO PERM 

(HLKSI/F 3060 RKCE M U DEIN 1600 PERM 

(HLKS I /E 30bl) RE CFM I) DE'N 1600 PE»M 

(HLKSI/F 3060 RECFM U UE-N 1600 PERM 

(HLKSI/F 3060 RECFM U DEN 1600 PtRM 

(KLKS I /F. 3060 RECFM U DtN lbOO PERM 

(HLKS i/t 3060 RECFM U DEN 1600 PERM 

(HLKSI/F 3060 RECFM U DEIN 1600 PERM 

(bLKSIZE 3060 RF.CFM IJ DFN lbOO PE»M 

(HLKSI/F 3060 RECFM IJ UfcN 1600 PERM 

(HLKSI/E 3060 RFCFM U DE.N 1600 PERM 

(HLKSI/F, 3060 RtCFM IJ DtN 1600 PERM 

(HLKSI/E 3060 RECFM U DFN lbOO PERM 

(HLKSI/E *060 RFCFM U DEN lbOO PtRM 

(BLKS17.F 30h0 RE'CFM U DEIN lbOO PERM 

(HLKSI/F 3060 RFCFM l) DFN 1600 PE'RM 

(BLKS I /F 3060 RFCFM U DEN lbOO PERM 

(HLKSI/F 3060 RECFM lj DFN 1600 PERM 

(HLKSI/F 1060 RFCFM U DEN 1600 PFRM 

(HLKSI/E 3060 RECFM U DFN lbOO PERM 

( bLKS I ZF 30 bO RECFM IJ DEN 1600 PERM 

(HLKhl/F. 3060 RFCFM IJ DFN 1600 PERM 

( HLKSI/F 3060 RtCFM IJ DEN 1600 PERM 

(BLKSIZE 3060 RECFM 0 DEN 1600 PERM 

(RLKSI/F 3060 RECFM (J DEN 1600 PERM 

(BLKSIZE 3060 RECFM U DEN 1600 PERM 

(RLKSI/E 3060 RECFM U DEN 1600 PERM 
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FILFOFF FT 
FILFOFF FT 

FIUF'DFF FT 

mm r 

FILEOfr FT 
FILFOFF FT 
FlLfc'DEF FT 
F I FEOFF FT2SF001 
GLOBAL VXTLIH " 
LOAD GRORTAPF 


IFUA^ 
IF <Uif 
1 F 0 4 7 
1F044 
Fjw/> 
L*>0 
OBI 
1F0H3 
1F.IHT 


ir 

II 


T AP 1 
TAPI 
TAPI 
TAPI 
1AP( 


is 


RINT fvl LI^TINN 
CP OFT 1H1 


TAP 
TAPI 
TAPI 
TAPI 
DISK 
FORTRAN 
(CLEAR 


(HL*S 

(HLKS 

(HLKS 

(HLKS 

(HLKS 

(BLKS 

(HLKS 

(tlLKS 


7 b 30*0 
ff 30 SO 
7F 3000 
7F 30M) 
n 3000 

/f Soon 

n 3flo o 

/F 3000 


RFCFM 
RFCFM 
HFCFM 
RFCFM 
RFCFM 
WFCFm 
RFCFM 
RFCr M 
RFCFM 


UEN 

OFN 

UEN 

DEN 


UFN 

UFN 

i/FN 

UFN 


16U0 

lhOft 

1600 

lOOO 

1600 

lhOO 

1600 

1600 

1600 


PERM 

PERM 

PFRM 

PERM 

PFRM 

pFrm 

PFRM 

PFRM 

PFRM 


0 


(iLKSI/F 3060 

M RAO 0 (LRECL 2400 HLKSUE 2400 XTFNT 1] 
V.MSL I B 
START NOMAP 


4- 5a 


7 PFRM 


4.2.4 LISTDOT FXF.C 


A PURDUE / LARS 3031 


^CONTROL OFF 

GETOISK JSC770 191 H R/A PASS A'JCOIN 

FILEOEF 3 TFPM (PhRM 

FILEDEF 6 DISK M LISTING f) (LRFCL 133 BLKSIZE U3 
FILEDEF FT21FO01 DISK & 1 CC A (LRFCL HO BLKSI/t SO 
FILEDEF FTcSFUOl DISK U RAl) D (LRFCL 2400 BLKSIZE 
FILEDFF FT 2 Q F 0 0 1 DISK U 6.2 A (LRFCL HO BLKSIZE HO 
GLORAL TXTt R FORTPAN CMSLIB 
LOAD LISTDOf (CLEAR START NOMAP 
PRINT 6.1 LISTING D 
CP TAG OUF, DEV F 
L * w D (ALL 


XTENT lbOO 
PERM 

2400 XTENT 
PERM 



A 


PERM 
117 PERM 


4.2,5 LISTGRN MIC 


A PUPOHh / |, AMS 3031 


^.CONTROL OFF 
GETOISK JSC770 
FILFOFF 
F ILF- OFF 
FIIEOEF 
FILFOFF 
FILFOFF 

global 


Ml ThO R G/A BASS AliCOTM 

1 TP»m (BF.RM 

Jj DISK M LISTING 0 (LRHO. m MLKSIZK1J1 
F T <* 1 F rt 0 1 OISK U CC A (LRFC.L HO HLKSI/F Hft 
FT<?SFoO 1 DISK U RAD 0 (L*KCL PAOO HLKSI/L 
FT^QFnoi DISK U (,? A (LRFC.L HO HLKSI7F HO 
TXTLIG FORTRAN CMSLIH 


LOAD LISTGRN (Cl FAR 
PRINT M LISTING 0 
CP TAG QUE DFV F 
L # # D (ALL 


START NOMAP 


XTFNT lbOO 
pf:rm 

<>*+()0 XTLNT 
PERM 


PFRM 

117 PERM 
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4.2.6 MIILTIHTT FXI-C 


A 


PUROUF / LARS I0J1 


^CONTROL OFF 
GETDISK JSC77U 
FILFDFF 
FILEDEF 
FILFDFF 
FILFOFF 
FILFDEF 
GLOBAL 


R H/A PASS AUCOTN 


lRl <b0 
3 TERM (PERM 
6 DISK U LISTING U (I RtCL til BLK5I7E 13S 
FI 2 1 Fun 1 DIBK U CC A (LPKCL SO OLKSI/E bO 
FT2SF001 DISK 41 RAO 1) (l PE CL 240 0 HLKSI7E 
FT2QF001 DISK M 47 A (LPFCL «0 M.KSI7E «0 
TXTl I« FORTRAN CMSLIH 


LOAD MULTIHIT (FI.EAR START M)MAP 
PRINT M LISTING 0 
CP TAG QUE OFV F 
L * * 0 ( ALl 


XTENT lbOO 
PLPM 

2400 XTF.NT 
PERM 
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PERM 

117 PERM 


4.2.7 SCATTFR FXKC A PURlUJF / l ARS 3031 


^CONTROL off; 

FIIFOEF 3 TERM (PERM 

FILFDEF ft DISK U L I ST I NO I) O •«* CL 1U RLKSIZh 1 J3 XTKNT 
FILFDFF 21 DISK M CC A (l.Rfr •'!. HLKSI7F HO PtRM uTr . ki „ 
FILFDEF 2^ DTSK M RAO I) (l.R» v .. 2 h 00 RLKSIZP 2*00 XTt NT 
FILFDFF FT27F (if) 1 III^K U LIST A (I.RECL RO HLKSlZfe HO PkR 
FILFDFF FT2«F001 DISK U S.2 A (LRt Cl rtO HLKS17E HO PERM 
FILFDEF FT30F001 DISK F ILK FTTOFOnl A (LRHCL HO HLKSI7E 
GLOBAL TXTLIM FORTRAN CMSLlH 
LOAD SCATTER (Cl FAR hT ART NOMAP 
&TYPF PRINT M I T STING 0 


1 bOO PFRM 

117 PFRM 
M 

HO PERM 
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4.2.8 PLOT* 


PXFC 


A PURDUE / LARS 3031 


^CONTROL OFF 

GETDXSK JSC77(i IRl ISO R H/A PASS AUCGIN 
F ILFDEF 3 TF Pm (PERM 

FILFDEF 6 OTSK U LISTING l) (LRfcCL 133 HLKSIZL 133 XTf NT 
FILFDkF ?1 DISK K\ CC A (LHKCL 80 BLKHI7F HO PERM 

filfdi!f ?h nt^K u RAn n ilhlcl p*oo hlksizf 2*oo xtent 

FILFDFF FT3RF*vn DISK U (.?. A tLi?F CL HO MIDSIZE HO PERM 
FILFDEF FT 30F urt 1 DISK FILE ETIOFOOi A (LRECL HO HLKSIZE 
GLOBAL TXTLIB FORTRAN CMSLIH 
LOAD PLOT* < FI FAR START NOMAP 
PRINT U LISTING ') 


1500 PFRM 
11/ PERM 
80 PERM 


4,2.9 PLOT 1 H FXfeC 


A 


PlJROUF / LARS 3031 


R S/A PASS AUCOIN 


^CONTROL OFF 
06! TO I SK JSC770 1R1 150 

FILEOEF 3 TFRM (PERM 
FILEOF.F A DISK Fl LISTING 0 (LRhCL 133 RLKSI/E, 133 XTt NT 1500 P6!RM 
FILFOFF 21 DISK &] CC A„ (LRECL HO HlKSl/t 80 PERM 
FILFOFF 25 0T5K U PAD 0 (LRtfCt 2400 HLKSI2F 2400 XTENT 117 PERM 
FILFOFF FT2RF00 ) OISK U &2 A (LRFCL 80 Hl.KSI/E HO PERM 
FILFOFF FT.10F00] OTSK FILE FT30K001 A (LRECL 80 dLKSIZE 80 PERM 
GLOBAL TXTLIR FORTRAN CMSLI8 
LOAO PLOT 1 H (CLEAR START NOMAP 
PRINT 41 LISTINO P 


4.2,10 WPTRIG FXEC 


PUWMJF / LAPS 30 J 1 


^CONTROL OFF 

FILFDFF 3 TFPm (PLRm 

FILF[)FF ft DISK U LISTING 0 (PKPM 

FILEDEF FTP7F001 DISK U LIST A (LRECL HO BLKSlJt 80 PERM 
FILFDFF FTPHFOOl DISK U A (LRFCL HO HLrtSUt 80 PERM 
GLOBAL TxTLIO FORTRAN CMSIIH 
LOAD WRTRIG (CLP AN START NOMAP 
PRINT LI LISTING i) 

CP TAG DUE DFV F 
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r jS 


4.2.11 COMPARE FXEC 


A PIJROUP / LARS 3031 


^?[)Isk L JS^770 1^1 ISO R 

3 T{;pM (PFftM 

ft disk * i l isri 

21 DISK 8,1 CC A 
FT27FO0 1 ni «;k 
FT2HF001 DISK 
FT29FOO) DISK 


FILFDF.F 
FILFDFF 
FILFDFF 
FILE OFF 

'ItfBiF 


*A PASS AUCOIN 


GLOBAL TXTLIB FORTRAN 
“ COMPARE ' ' ‘ 


LOAD 

PRINT 


_ (CLEAR 
8.1 LISTING Ft 


■;G D (LRFCL i:n H 
(LWB.CL MO rtl.KSI? 
U LIST A (LWfcCL BO 
8.1 ft? A (LRFCL MO 
8.1 8,3 A (LRKCt MO 
CMSLIH 
START NOMAP 


- t .U3 
PERM 


XTENT 1S00 PERM 


RLKSI/t MO PERM 
RLKSI/E MO PERM 
HLKSl/'t MO PERM 


4-13 


APPENDIX A 

P1A SYSTEM FLOWCHART 


CLUSTAPE 


r TAPHDR 

— LAREAD 

— FLDINT 
— LINERD 


SELDOTS 


SETP1 D—r— NUMB — 
i — MOVSYM 

-NRAND 

- RDSUMS 

- FIL2Q9 

- FIL5X5— i— UNIF 

• — CKPUT 


H FI LI 05- — | UNIF 

I — CKPUT 


FIL510— , — -UNIF 
1 — CKPUT 


- FI IRAN — i UNIF 

» — -CKPUT 


L- WRTLST — | — ■HEADTI 
I HEDTIA 


GRBRTAPE 


t— -NUMBER 
— TAPHDR 
— LAREAD 
— FLDINT 
1 LINERD 


•I4A1BN 


WRTRIG - WRTRIG 


COMPARE 


SETP1D- r-NUMB — 

L MOVESYM 


I4A1BN 


- READAI 

-IBSUM — HEADIB 

- REDLST 

- COMBLA 
— HEADII 
— GRDHED 

— GRDPIX 

— BNI4A1 


LISTDOTS 


r SETPIO - NUMB T-I4A1BN 
L MOVESYM 


h READAI 

hradred 

* — GRI DOR 



HEDIII 

TITLDT 

CALDOT 


PLQT18 


pSETPID r-NUMB — I4A1BN 

lmovsym 


-RDSLST 

-RDRADN 

-MOVEAD 

LpLT18 — HEDP18 


MULTIHIT — — r-SETPl D~ 



— READAI 
-RDRADN 

-MOVE IT CALDOT - BNI4AI 

~ P 1 S RT 

— MATCH AFRMIN - BNI4AI 

L REPGRD - — r HEADV 

Ltitleg 


A- 2 


I4A1BN 


LISTGRN - 


SCATTER - 


PL0T4 - 


pSETPl D — — — — rNUMB — I4A1BN 

Lmovsym 


— REA DAI 


- RDRADN 


- MOVE IT— 

-CAL DOT— — -8NI4AI 

- P1SRT 


“ REPGRD — — 

rHEADIV 

klTLEG 

pSETPID 

rNUMB - I4A1BN 

L-MOVSYM 

-RDSLST 


- RDRADN 


- MOVEGN 


L SC ATT • 

HEADSI 


rSETPID r-NUMB * I4A1BN 

'-MOVSYH 


-RDSLST 
- RDRADN 

-MOVEAD I4A1BN 

PL0TT4 1 — HEADP4 

J — AFRMIN 


A-3 



(S.N.) * Segment Nunber 







(S.N.) * Segment Husber 






















APPENDIX B 
PI A SYSTEM LISTINGS 


FORTRAN IV i 
FILF CLUSTAPE 


ooni 

000 ? 

0003 

0004 

ooos 


0006 


0007 


0008 


0009 


0010 

0011 

001 ? 


non 

0014 


LEVEL ?! 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


CLUSTAPE DATE * 8015? 

PUP DUE / LARS 3031 


14/38/22 


mage oooi 


PURPOSE; MOVE DATA FROM A UNIVFRSAL FORMAT TAPE TO A TEMP DISK FILE 


«*•••**••*** INPUT ********** 

l channel tape IN universal format 

•*#*•***•• OUTPUT ********** 

FILF TO RE USED AS INPUT TO PROCESSOR 2 

FORMAT OF NFV FILE ON DISK ?3 “ (SEGMENT NUMBER) 


SIZES 


PEC 1 

NOELS 
2—3 
TSUHCL 


NUMBER OF CLUSTERS 


RFC 


NUMRFP OF DOTS REQUIRED FOR EACH CLUSTER 


FTLF TO RE USED FOR RFMAINOER OF PROGRAMS IN PROCESSOR 1 
FORMAT OF NFW FILE ON DISK 24 “ (SEGMENT NUMBER) CLUSTER 


RFC 


2 - 118 
TOATA 


CLUSTFR DATA 
(INTEGERS) 


(196 1 CHARACTER SYMBOLS) 


(NO. OF P7S FOR EACH CLUSTER* 


RFC 119 NO. CLUSTERS* SUM OF PIXFLS* . 

SYMBOLS REPPESENTATING MAXIMUM OF 3? CLUSTERS 
NOCLSt JSUHf ISUMCL ( INTEGER*4) * ISHBL5 (INTEGER*4) 

RFC 120 INDICES REPRESENTING 
TDOTCL (209) 

IMPLICIT INTFGFR U-Z) 

INTFGER*4 TOATA* ISMRLS* IRLANK* LHOLD* LKEEP 
nt^ENSlON IOOTCL (209) t TDTSYM(?09) 

DIMENSION ISU M CL(30) »ISMBLS(32) 

DIMENSION FLOINF (6) t Ft (12) 

RFSFRVF SPACE FOR 196 PIXELS 
DIMENSION IDATACEOm 


COMMON /INFORM/HEAD (42) * 
1 PAGSI7* 

? -DtlPSYM* 

3 SFRIALt 

4 MaXCLS« 

5 NOTPFDf 

- 6 VARS72» 

* NOGRP * 

8 XHGH 


, 9IRL0CK (30) *FETVEC (30) *FETVC2(30) « 


FOUXVALENCF 


(FLOINF (1 ) *1 INSTR) * 
(FLDINF (?) tLINFND) * 
(FLOINF (3) tLININC) * 


CLU00010 
CLU00020 
CLU00030 
CLU00040 
CLUOOOSO 
CLU00060 
CLU00070 
CLU00080 
CLU00G90 
CLUOO 106 
CLUOQ 110 
CLUOO 1 ?G 
CLUOO 130 
CLUOO 140 
CLUOO 150 
CLU00160 
CLU0017 0 
CLUOOIBO 
CLUOO 190 
CLU0Q2G0 
CLU0021 0 
CUJ00220 
CUJ0023D 
CLU 00240 
CLU00250 

1 CHAR SYMBOLS FOR 10 % 10 INTERSECTIONCLUO 0260 

CLU00270 
CLU00280 
CLUQG29G 
CLUOO 300 
CLU0031 0 
CLUD0320 
CLU00330 
CLU0034Q 
CLU003S0 
CLU00360 
CLU00370 
CLU003B0 
CLU00390 
MAXFET #CLU00400 
CLU9Q410 
SPLMAX.CUJ00420 
CLUO043O 

M0FLD2* N0FLD3»CLU0044Q 
W0FET4* VARSIZ#CLU00450 
NOSPECv NOHIST *CLU00460 
PRTLEV* YSIZ * CLUQ0470 
N0CLS3* PCTSZ .CtJJOIMBQ 
HISVEC (30) * INVERT (30) tBESTVC (30>CUJQQ490 

CLOOOSOO 

(FLDINF (4) tSAMSTR) * 

(FLDINF (55 *SAMFND ) t 
(FLDINF (6) fSAHINC) 


MAPTAPt 
TAPCHK, 
THRSYM, 
TAPESV* 
N0CLS2* 
NOFF AT « 
VARS74* 

mvsiz* 

XL DM 


DAT APE* 
TRNSYM* 
MAXDIV* 
FlLESVt 
MAXFLOt 
N0FET2* 
XSIZ t 
KEEPLV, 
SPCRAS * 


SAVTAP. 

TSTSYMt 

MINDZV* 


C* 

C* 

£«* 

C* 

c* 

c* 

c* 

c* 

c 


c 

c 


DIMENSION ARRAY (2000) 

2000 LOCATIONS OF * ARRAY * FOR FIELD DEFINITION INFORMATION* 

FIELD INFORMATION STORFD AS FOLLOWS 

ARP AY (1) *FIRST FIFLO NAMF FOR THIS CLASS 

(2) *N0. OF VERTICES FOR THIS FIELD (NV) 

(3) -(3*NV»?) = ACTUAL VERTEX NUMRERS 

(3*NV*2) *TOTAL PIXELS IN THIS FIELD 

(4*NV*2) — (10*NV*2) = FLDINF BLOCK FOR THIS FIELD 

DIMENSION LH0L0(4) *LKEFP(4) 

EQUIVALENCE ( IHOLO*LHOLD (4) ) • 

DATA ICHAN/*CHAN»/* IRLNK4/* 


(KFFPtLXFEP (4) ) 

*/* IFND/**END*/*IRLANK /* */ 


JSUM = 0 

-no ii= 


7FR0 SUMS AND BLANKS SYMBOLS 
MO 


CLU90S1 0 
CLU00520 
CLU00530 
CLU00S40 
CLU00550 
CLU00S6D 
CLU00570 
CLU30580 
CL^00590 
CLU00600 
CLUOO 610 
CLU00620 
CLU00630 
CLUOO 640 
CLU00650 
CLU00660 
‘CLU00670 
CLU006B0 
CLUOC* -*90 
CLU00700 
CLU00710 



FORTRAN IV a LEVEL 
FILE CLUSTAPE 


£ DATE » S0157 

PURDUE / LARS 3031 


TSlWCLtn a 0 
TSMflLStn * I PL ANK 
tHOLO = IRLNK4 
XFFP a IBLNKA 
MXLCLS = 1 


••••••*. READ DATA FPOH 1 CHANNEL TAPE *********** 

SKIP DATA IN CC FILE FXCEPT FOR CHANNELS CARD 
READ (?1 i61 t IOATA (I) .1=1,20) 

FORMAT (20AA) 

IF (IDATAIl) .HE. TEND) GO TO S 
FETVECC1) a 1 
NOFFAT a 1 

DATAPF a 11 
NOFSKP a 0 

CALL TAPHOR (DAT APE. NOFSKP) 

HOFLDaO 

IPT=1 

READ (11 FIFLO NAME. tPl FTFLD VERTICES. 13 J FIELD INFORMATION 

(A) NUMBER VEPTICFS. AND RETURN (5) NUMBER OF CARDS READ _ 

TC* a LAREADCAPRAY(IPT) , ARPAY(IPT*2) »FLDINF»ARRAY(IPT*1) * NOCRDSJ 
NVaAPPAY(IPT*l) 

N0FLD=N0FL0*1 

NSAMP=CSAMFND-SAMSTR)/SAMINC*1 
TRalPT ♦? 

TFjs1R>HV # 2*1 

VRITF (6.1600) NOFt D. ARRAY (IPT) .NV.SAMINC.LININC. 

* ( ARRAY ( I) . I=IB, IF) 

DO F0R«aT(1X,I2,4X»A4.12X,I2,10X,I2,6X.I2.5X, 

* S(«{».I4,»»»,t4,') *.2X)/?I5?X»5('(*»I4,*.*,I4»'» • *2X1/11 

NOVALS = 106 

POSITION T 4PF FOR THIS FIELD 
FETVFC(l) = I 

CALL FLD INT C FLD I NF , FFTVFC . N0EEAT1 


***** DEFINE FILE TO BE 150 RECORDS. OF 200 WORDS EACH 
DEFINE FILF 24 (150. 200. U ,10) 


C *** READ LINES OF DATA FROM UNIVERSAL FORMAT TAPE AND HOVE TO DISK •* 
NXTDOT a 1 
NXTCLS a 1 
C 

DO 70 l INEaLINSTR.LINEND.LININC 
LINFNO = line 
C 

C READ LINF FROM UNIVERSAL FORMAT TAPE (EHDTAP * -1 IF LAST LINE! 

CALL LINFRO(IDATA.FNOTlP) 

IF (ENDTAP.FQ.-l ) GO TO BOO 
C 

C WRITE LINF ON TFHP DISK FILE 

VRITF C24*LINEN0> LTNENO, (IOATA CD .1=1 .NOVALS) 

C 

C SUM OCCUR ANCES OF CLUSTERS 
C 

29 DO 40 II = 1.196 

DO 30 JJ a I, NXTCLS 

IF (IDATA(II) .NE. ISMBLS(JJ) I GO TO 30 
TSHHCL(JJ) a ISUMCL(JJ) ♦ 1 
NDEX a JJ 

GO TO 35 
30 CONTINIJF 

C NEW CLUSTFR ADD 1 TO COUNT, AND START NEV SUM 

ISMBLS (NXTCLS) = TOATA(II) _ . , 

WRITE (6,44) LTNENO. II, NXTCLS. ISMBLS (NXTCLS) .IDATA(II) 

44 FORMAT < • LINFNO. IT, NXTCLS. ISMBLS (NXTCLS) » IOATA (I I) = » .516) 


PAGE 0002 
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FTLF CLUSTAPF 


PURDUE / LARS 3031 


ISIIMCL (NXTCLS} = 1 
NOEX = NXTCLS 

NXTCLS = NXTCLS * l 

5 CONTINUE 

IF THE LINE AND SAMPLF APE MULTIPLES OF 10 SAVE DOT INDEX 
IF (MOnCLINENO.lO) .NE. 0) GO TO 40 
IF {MOntIT.10) .($F. 0) GO TO 40 
TDOTCI. PNXTOOT) = NOFX 
IOTSYH(NXTOOT) = TOATAdTl 
NXTOOT = NXTOOT ♦ 1 
40 CONTINUE 


CONTINUE 


END OF LINFS OF DATA 


C SAVE DOTS FOR 19.11 GRID 
TAORFS = 120 

WRITE (24*1 AORFS) dOOTCLdl .1=1.209'/ 

WRTTF (6.7?) (TDOTn.dl .1=1,2091 . . 

72 FORMAT (//,* INDICFS FOP 10 X 10 GRID DOTS = *. /. (1X.19I31) 

WRITE (6.741 (IOTSYM II ).I=1 .209) 

74 FORMAT (//.* SYMBOLS FOR DOTS = *,/.» UX. 191311 
C 

C WRITE MFSSAGE TO USER 

WRITF (3. 7S> LINFNO 

75 FORMAT (//,* lHAGE OATA EXTRACTED FROM TAPE. LAST LINE = *.141 
C 

C 

NOCLS = NXTCLS - 1 
DO -80 T = 1. NOCLS 
BO JSUH = JSUH ♦ TSUMCLCI) 

C 

WRITE (6.1001 NOCLS, JSUM 

100 FORMAT (///. 13, • CLASSY CLUSTERS*. 16. « PIXELS*! 

C 

WRITF S (i4*IA0RFSl NOCLS. JSUH. CISUMCLdl »I=1.N0CLSI , (ISHBLSdl. 
1 =1.N0C'S1 
C 

C WRITE FILF FOR P1R PROGRAMS 
WRITF (23.20001 NOELS 
2000 FORMAT (20141 

WRITF (23.20001 (ISIJMCL (II * 1 = 1 .NOCLS) 

C 

WRTTE (6,1991 

199 FORMAT (///.* SYMBOL SU«*1 

WRTTF (6.2001 (ISHBLSdl, ISUHCLdl. 1=1. NOCLS! 

200 FORMAT (2161 

WRITF (6.2001 (ISUMCLIIl ,I=1.N0CLS1 
RFTURH 
C 

800 WRITE (6,14001 

14 OS FORMAT (• ENO-OF-TAPE REACHFO REFORE END OF FIELO'l 
STOP 

C . - 

1300 FORMAT (• FIELD DEFINITION INFORMATION EXCEEOS 2000 WORDS*! 


CL1J0I430 
CLU01440 
CLU014S0 
CLU01460 
CLU01470 
CLU01480 
CLU01490 
CLU01S00 
CLU01S10 
CLU01S20 
CLU01530 
CLU01540 
CLU01SSG 
CLU01S60 
CLU01S70 
CLU01SR0 
CLU01S90 
CLU01600 
CLU0161 0 
CLU01620 
CLU01630 
CLU01640 
CLU0I6S0 
CLU0166G 
CLU01670 
CLU016R0 
CLU01690 
CLU01700 
CLU01710 
CLU01720 
CLU01730 
CLU01740 
CLU01750 
CLU01760 
CLU01770 
CLU01780 
CLU01790 
CLU01B00 
. ICLU0I810 
CLU01H20 
CLU01830 
CLU01840 
CLU01B50 
CLUO I860 
CLU01870 
CLUO 1880 
CLU01R90 
CLU01900 
CLU01910 
CLUO 1920 
CLU01930 
CLU01940 
CLU019SO 
CLU01960 
CLU01970 
CLU01980 
CLU01990 
Cl 102000 
CLU02010 
CLU02020 
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SYMBOL 

HP AO 

pagst? 

THRSYM 
TAPFSV 
NGFLO? 
N0FFT4 
NO^PFC 
PRTLFV 
NOrt S3 
HISVFC 


LOCATION 

n 

B% 

ec 

FO 

F4 

10A 

tie 

130 

144 

PB4 


SYMBOL 

MAPTAP 

TAPCHK 

MAXOIV 

FtLFSV 

M0FLD3 

VAPST7 

NOHTST 

YSI7 

PCTS7 

INVERT 


COMMON BLOCK /INFORM / HAP SIZE 


LOCATION 

AP 

RC 

no 

P4 
FR 
IOC 
IPO 
134 
1 A A 

3PC 


SYMBOL 

OATAPE 

TPNSYM 

MINDIV 

MAXCLS 

NOTRFD 

VARS7? 

NOGRP 

XHGH 

I BLOCK 

RESTVC 


ATI0N 

SYMBOL 

LOCATION 

SYMBOL 

AC 

SAVTAP 

BO 

maxfet 

CO 

TSTSYH 

C4 

OOPSYM 

04 

splmax 

Oft 

SERIAL 

FB 

NOCLS2 

EC 

MAXFLO 

FC 

NOFEAT 

100 

NOFET? 

110 

VARSZA 

114 

XSIZ 

124 

OIVSIZ 

12fi 

KEF PL V 

13* 

XLOV 

13C 

SPCBAS 

14C 

FETVEC 

1C4 

FFTVC'? 

3A4 





SYMBOL 

IRrOHA 

linero 


LOCATION 

12 * 


SYHBOL SUBP LOCATION CALtFO SYHBOL LOCATION SYMBOL LOCATION SYMBOL 

TAPHDR 1IB LAREAD 11C FLQINT 120 B1QZS* 


SYMBOL 

FLHTNF 

SAMFNO 

KFFP 


LOCATION 

170 

ran 

1A4 


SYMROL F ^LOCATION A SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

LINSTR 170 LINFND 174 LININC \I* 

SAMINC 1B4 LHOLD IBB IHOLO 194 LKFEP 


SYMBOL 
I CM AN 
T 

TC* 

IF 

LTNP 

NOFX 


LOCATION 
1 AS 
IRC 
IDO 
1F4 
1FR 
20C 


scalar map 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL ^cfia 05 " 

I8LNK4 1»C IFNO 1B0 IBLANK 1B4 JSUM 

NXLCLS ICO NOFSKP IC4 NOFLD 1CB »PT 

NOCBOS 104 NV 10B NS A HP IOC SIB 

NOVALS 1EP ID 1FC NXTOOT 1F0 NXTCLS 

LINFNO 1FC ENOTAP 200 II 204 JJ 

I40PES 210 NOCLS 214 


SYMBOL 

IOOTCL 

IDATA 


LOCATION 

?1« 

SCO 


ARRAY M AP 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

TDTSYH SSC ISUMCL RAO ISHBLS 91B FL 

ARRAY CFB 


SYMBOL 

6 

7S 

1490 


LOCATION 

PC2B 

PCFC 

PD76 


popmat statpmpnt Map 

SYMBOL^ LOCATION SYH80L LOCATION SYMBOL LOCATION SYHiSt 

1600 ?C?F 44 2C71 72 2CAB 74 

100 2D31 2000 2055 199 2058 280 

1300 204? 


••OPTIONS IN FFFFCT* IO.EBCOrC.SOURrF«NOLIST«OECK.NQLOAO,MAP 
•OPTIONS IN EFFECT* NAME = CIWSTAPE, LINECNT = 7S 

♦STATISTICS* SOUPCF STATEMENTS = 9ft. PROGRAM SIZE = 

•STATISTICS* NO DIAGNOSTICS GENFRATEO 


13736 
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000 ] 

0002 

0003 

0004 

0005 

0006 
0007 


0008 

oooq 

0010 


c 

c 

c 

C 

C 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


5 

c 

c 


PURPOSE: HAKE LIST OF PIXELS TO BE EVALUATED BY 41 *S 


#«••••#•«# INPUT #*##«•#**# 

FORMAT OF CLUSTER DATA F ILF ON DISK — (SFGHFNT NUMBER] CLUSTER 


RFC 


1 - 117 
TOATA 


CLUSTER nATA (196 INDICES TO CLUSTER SYMBOLS) 


REC 119 NO. CLUSTERS* SUM OF PIXFLS, (NO. OF PTS FOR EACH CLUSTER* 
INDICES TO SYMROLS REPRESENTING MAXIMUM OF 30 CLUSTERS 
NOCLS, JSUM, ISUMCL* TSHRLS 


SELQ0010 
SEL00020 
SEL00030 
5EL0OO4O 
SEL00050 
SFLO0O6Q 
SEL00070 
SFL00080 
SFLOOORO 
SFL00100 
SELOGUO 
SEL0O12O 
INTERSECTION SFL00130 
SFL00149 
SEL00150 

********** OUTPUT ********** SEL00160 

FORMAT OF NEW FTLES ON UNIT SFL0.M70 

1-AT LABELS* 2-LINF NUMRFR* 3-SAMPLE* 4-CLUSTER INDEX, SFL00180 

5— GRID TYPE SEL00193 

LIST (999. S) 1-BLANKS* 2-LINE NO.* 3-SAHPLE* 4-CLUS INDEX* 5-GRIDSELOOPGO 

FORMAT OF OUTPUT LIST FOR ANALYST 5EL0021G 

SPACE FOP NFV DATA. L INF NUMBER* SAMPLE 
LIST (999,5) 2-LINF NO, 3-SAMPLF 


REC 120 INDICFS REPRESENTING 1 CHAR SYMBOLS FOR 10 X 
ID0TCLC209) 


10 


DESCRIPTION OF VARTABI.FS 

VARIABLFS READ FROM FILE 24 CRFATEO BY P1A 1CHAN 
TSMBLS— SYMBOL FOR FACH CLUSTER 
ISUMCL — SUM FOR FACH CLUSTEP 
TDOTSCL — INDEX TO CLUSTER FOR II X 19 DOT 
CLSUM RFAD AS .JSUH, TOTAL NUMBER OF POINTS (117 * 196) 

USER SUPPLIED 

NOOOTS— NUMBER OF DOTS NEEDED FOR LIST 
BUFFER 

IDATA— LINE OF DATA (196 PIXELS) 

CALCULATED VARIABLES 

PRCFNT — PPCENT FDR EACH CLUSTFR 


SEL00220 

SFLO023G 

SEL0024G 

SEL00P5G 

SFL00260 

SFL00279 

SFLOOPBO 

SEL00290 

SFL00300 

SELOO310 

SEL00320 

SFL00330 

SEL00340 

SFL00350 

SFL00360 

SFL00370 

SEL003B0 

SEL00390 

SFL00400 

5EL00410 


HTOTAL--CURRFNT NUHRER OF PIXELS SATISFYING USER REQ'O NUM PTS SFL00420 


LTOTAL — CURPFNT NUMBER OF PIXELS IN LIST 
LTNFNO— CURRENT (.INF NUMBER 
KOLUMN — CURRENT SAMPLE NUMBER 

NFEDCL — NUMBER w FFOFn FOR EACH CLUSTFR (PRCENT*NODOTS> 
NFFDGR— NUMBER NFFOFD FOR GROUP OF CLUSTERS WITH NFEDCL = 0 
NDLAST — LAST PIXEL INDEX ON LAST NON-NULL GPIO 

COMMON /CLSTR/ NOCI S, Cl SUM* ISUMCL (90 ), ISMRLS (90) tPRCFNT (90) * 

1 TOOTCL (21?) .IUSEDU 17, 196) , INRFXC (90 J «NDEX2, ITOT2 
LOGICAL*! FUSED 

COMHON/RFQUIP/MTOTAL*NODOTS,MaTCHS(90) *IDATA(196) ,L INFNO, KOLUMN 

COHHON/LISTPO/LTOTaL*LGRID*LIST (999,5) ,NEE0CL(90) ,NIEEDGR, NOLAST 

COMMON /H ISC/ NOACD. LNSOll (6) , TACQDT(2 f 6), AT (5), NMFILE (2) * 

1 SFGMtDATE (4) * IGRIOR (5) , IGPIDN (5) *NOPGFS,NOLNES 


DATA IBLANK/* 


*/ 


CALL SETP1 TO PFAD CC FILE 
CALL SFTP1D 


SET PIXFLS USED MATRIX .FA! SF, 
DO 5 I a ] .196 
DO 5 J x 1.H7 
IUSEDU, n* .FALSE. 

BLANK AND 7EPO t 1ST 


* PIXEL SET TO .TRUE. WHEN IT IS USED 


SFL00430 
SFL00440 
SFL0G450 
SEL00460 
SEL00470 
SEL004B0 
SFLQ0490 
SFL00500 
SFL0O510 
SEL00520 
SFL00530 
SFL0054 0 
SFL00SS0 
SEL00560 
SEL00570 
SFL00580 
SEL00S90 
SEL0C6OQ 
SFL00610 
SFL00620 
SFL00630 
SFL00660 
SFL9O650 
SEL00660 
SFL00670 
SFL00680 
SFL00690 
SEL00700 
SFL0O71O 
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non 


no 7 I a 1*999 



SEL00720 

001? 


LIST (If 11 a IfiLANK 



SEL00730 

non 


LIST Cl *21 = 0 



SEL00740 

nni4 


LIST (1*3) a 0 



SEL007S0 

0015 


LIST (1*4) a 0 



SEL00760 

0016 

7 

LIST l 1*5) a 0 



SEL00770 


C 




SFL00780 


C 

7FPO COUNT OF DOTS FOUND 



SEL00790 

0017 


LTOTAL = 0 



SFL00A00 

0018 


NTOTAL = 0 



SFLO0«10 

0019 


UHL AST = 0 



SEL00820 


C 




SFLOOfi 30 


C 

2FPO matches for fach clustfr 



SFL00840 

0020 


00 10 I = 1*30 



SEL008S0 

0021 

10 

MATCHS(I) = 0 



SFLOOR^i 


c 




SFL006/0 


c 




SEL00R80 

0022 


IF (NOnOTS .LE* 3) GO TO ISO 



SEL00890 


c 




SFL00900 


c 

INITIAL I7F NRAND 



SEL00910 

0023 


CALL NRANO U •) 



SFL 00920 

no?4 


CALL RDSUHS 



SFL00930 


c 




5FL00940 


c 

FILL LIST FROM 209 DOTS* UNLESS GRID 2 SPECIFIEED 



SFL009S0 

no?s 

150 

I IF (NODOTS .FO. 2) GO TO 160 



SFL00960 

0 026 


CALL FIL209 



SEL00970 

0027 


TF (NOnOTS .FG. 3) GO TO 160 



SFL00980 

0 028 


IF CMTOTAL .GE. NOnOTS) GO TO 200 



SEL00990 


C 




SFL01000 


C 

FILL LIST FROM 5 X 5 GQIO AT RANDOM 



SEL01010 

0029 

160 

1 CALL FTLSXS 



5FL01020 

0030 


IF («TOTAL .GE. NODOTS) GO TO 200 



SFL01030 


C 




SFL01040 


c 

FILL LIST FROM 10 X 5 GRID AT RANDOM 



SEL01050 

0031 


CALL FIL105 



SFL01060 

0032 


IF (MTOTAL .GE. NOOOTS) GO TO 200 



SFLOIOIO 


c 




SEL01080 


c 

FILL LIST FJf'OM 5 X 10 GRID AT RANDOM 



SEL01090 

0033 


CALL FILS10 



SELOUOO 

0034 


IF (MJOTAL .GE. NODOTS) GO TO 200 



‘ SEL01110 


c 




SFL01120 


c 

FII L LIST FROM COMPLETE GRID AT RANDOM 



SEL01130 

0035 


CALL FILRAN 



SFL0I140 


c 




SEL01150 


c 

WPITE LIST FOR AI AND LIST TO OIS* 



SEL01160 

0036 

200 

1 CALL WPTLST 



SEL01170 


c 




SEL01180 

0037 


STOP 



SEL01190 

0038 


FND 



SEL01200 
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SYMBOL - 

worts 

TDOTCL 


LOCATION 

0 

4*0 


„ COMMON BLOCK /CLSTR / MAP SIZE 829* 

SYH80L LOCATION SYMBOL LOCATION SYMBOL 
CLSUM * 1SUMCL 8 TSHAIS 
I USED 700 INOEXC 812* W0F§k S 


SYMBOL 

HTOTAL 

KOLUMN 


LOCATION 

0 

48* 


COMMON P! OCK /RFGUIR / MAP SI/F *88 

SSISft LOC * T r , ‘ 5Z¥?% uxirym symbol 


SYMBOL 
LTOTAL 
NO! AST 


LOCATION 

0 

4F80 


COMMON BLOCK /LISTRO / M*p SI7E 4F84 
.^THROL LOCATION SYMBOL LOCATION 

lgrio A LIST fl 


SYMBOL 

NEFOCL 


SYMROL 

noaco 

SPRK 

NOl NFS 


LOCATION 

0 

6B 

AH 


COHMON BLOCK /MISC / HAP SI7F AC 

LOCATION SYMBOL LOCATION SYMBOL 

kvSS* 1 - 4 IACGDT ic AT 

OATE 8C IGRIDB 7C *GRIDN 


SYMBOL LOCATION 
SFTPID EC 

Pit 105 100 


SYMBOL 
I BLANK 


LOCATION 

118 


SUBPROGRAMS CALLFD 


SYMBOL 

LOCATION 

SYMBOL 

NRANO 

FO 

RDSUMS 

FILS10 

10* 

F It RAN 

SCALAR MAP 


SYMBOL 

LOCATION 

SYMBOL 

I 

11C 

J 


LOCATION 

F4 

108 


LOCATION 

120 


:S5II§SI is mis' i*AF B ="IFLnoT? r f ’ "?NF?J x°E CK * 


A t *» i. * p I ^ — ir LtiU 9 7 ( 1 

-STATISTICS* SOIWCF STATFMFNTS = 
•S" ST ICS » NO DIAGNOSTICS GFNFRaTFO 


"3R, PROGRAM SI7E = 


SYMBOL 

FIL209 

WRTLST 


SYMBOL 



14/38/56 
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LOCATION 

4F1A 


SYMBOL LOCATION 

NEEOGR AF7C 



J 
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nno? 

noo3 

noOA 

oo os 
0006 

0007 


0OOB 

nm>9 

0010 

non 


0012 

0013 


00 1 A 
0015 


0016 

0017 

0018 
0010 
0020 
00?1 
00?2 


00?3 

0024 

0025 

0026 

0027 

0028 
0020 
0030 
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C 

r 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE ROSUMS 


PURPOSE: 


CD 
C 2) 


RFAD COUNTS OF POINTS IN EACH CLUSTER ANO ThEIR 
ASSOCIATED SYMBOLS 
CALCULATE TOTAL NUMBER OF POINTS 


«*«•»»**•* INPUT ********** 

NOnOTS NUMRFR OF DOTS NFFDFO 
1 CMANNFL CLUSTER DATA ON UNIT 24 


NFFDCI 

PRCFNT 

ISWRLS 

1SUMCI 

NDF X2 
TTOT? 


****** OUTPUT ********** 

NUMBER DOTS NFfDFD FOP FACH CLUSTER 
PFRCFNT NFFDFD FOP FACH CLUSTER 
SYMBOLS FOR FACH Cl USTER 

NUHHFR OF DOT* FOR FACH CLUSTER _ 4 ^ ^ 

TNDEX FOR EACH ACTIVE CLUSTER* CLUSTER *LE* 2 RESFT TO 1ST 
TOTAL NUMBER OF PIXFLS IN GROUP OF CLUSTER .LE* 2 


t 

C 

c 

C 

c 

C 


*•»•*••*•* COMMON PLOCKS ********** 

COMMON /Ci STR/ NOCLS* CLSUH* ISUMCL C90) • ISH8LS f ROM *PRCENT C90) * 

1 TOOTCL f2l?) •IUSFDC117*1R6) • INOFXC (901 *N0EX2* ITCT2 
LOGICAL *1 IUSEO 

COMMON/LISTRQ/LTOTALtLGPID.LIST(Q99*5) *NEEOCL (901 tNEFDGR* NOLAST 

COMMON/RFOUIR/MTOT AL*NODOTS* HATCHS (90) * I0ATA C 1961 »LINFNO*KOLUHN 
COMMON /RISC/ NOACO* LNSOIL (62 * lAC0DT{2t6>* At (51 ? NMFILE C2> * 

1 SFGMtDATE (4) « IGPIDB (51 * IGRIDNC51 *N0P6ES*N0LNES 


»•**••«*•• DFFINF I 
DFFINF FILF 24 (ISO 


CHANNEL FILE AS UNIT 24 
► 200* Ut 101 


READ INFORMATION FROM CLUSTAPE 


RFAD ORIGINAL CLASSY CLUSTER FOR EACH OF 209 POINTS 
TADRFS - 120 

READ (24 * l ADRcSl t IDOTCL (I) • 1=1 *2091 
WRTTF (6*15) IIDOTCL CD *1=1*2091 

FOPMAT (» INDICES FOR 10 X 10 GRID OOTS= •* /* €lXtl*I3) 


1 


SFL01210 

SEL0I22C 

SEL01210 

SFLOI 240 

SFL012S0 

SFL01260 

SEL0127C 

SFL012R0 

SFL01290 

SEL01 100 

SFLOI 110 

SFL01 1/0 

SFLOI 330 

SFLOI 140 

SFLOI 3^0 

SFLO* 160 

SFLOI 370 

SFLOI 

SFLOI 390 

SFL0I409 

SFL0I4I0 

SFL01420 

SFLOI 430 

SFL01440 

SEL014S0 

SFLOI 460 

SFL01470 

SFL01480 

SFL0I490 

SFL01S99 

SEL0151 0 

SFL01520 

SFL01530 

SEL01540 

SFL01SS0 

SFL0X^60 

SFL01S70 

SFL31SM0 

SELOIM^O 

SFL01600 

SFL01610 


40 

C 

C 


50 


15 

C READ NUMBER CLASSES* SUM ALL POINTS* SYMBOLS ANO SUM POINTS IN CLASSE5SEL0162O 
TADRFS = IIP SFLOI 630 

READ (24* DOPES) NOCLS* JSUM* C ISUMCL III * 1=1 * NOCLS) ♦ CISHBLS CI1 • I=SFL0J640 

1 1 • NOCLS) 5IS-SIS2 

C SFL01660 

WRITE (6.40) NOCLS. JSUM 5£!-2J?Z2 

FORMAT < //♦ I3« • CLASSr CLUSTERS'* Ifi»* PIXELS') SPCglftHO 

SFL0I690 

C*LCUt ATE PERCENTAGES «••*«****• SFL01700 

noex? = o 5SS-S1IIS 

no so i = l.so 5£h2H<2 

iNRExcd) = I i£HU?22 

CLSUM = JSUM SEL01T40 

no 60 I = 1. NOCLS 5£h2H^2 

PRCFNT (II a ISUMCL (I) / CLSUM SFLOI 760 

CONTINUE 111-21 U2 

SFLOI TOO 

••••••*••• ADJUST PERCENTAGES ********** SFLOI 7^0 

CALCULATE NUHRFP NEEDED FOR FACH CLUSTER. SUM ALL PERCENTAGES MEEOEn.SELOinOfl 
SUM PERENTXGES NEEDED FOR CLUSTERS KITH ZERO NEE0FD. LARGEST CLUSTER SFL01H10 
TSUM a o SFLOIMPO 

TRIG a 0 SFLOimo 

NOXRTG a 0 5£!-212?2 

PRCNTO * 0 SFL01SS0 

SFL01D60 

NDFX? a 0 SFL01H70 

DO l?0 T a l, NOCLS 5gJ-2|S?S 

NFFOCLfll = PRCENTdl * NODOTS * .*» ?£. L 2i R 22 

IF CNEEOCLtn .GT. ?) GO TO 100 S£b2J2?2 

SFL019I0 


60 


C 

c 

C 

c 
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noil 

001 ? 

0013 

0014 

0035 


0016 

0017 

0018 

0019 


0040 

004! 

004? 

0043 

0044 

0045 

6046 


0047 

0048 

0049 

0050 


0051 

005? 

0051 

0054 


PRCNTO x PRCNTO ♦ PRCENTin 
RFFnCL(I) = 0. 

IF CN0FX2 .EO. 0) NOFX2 = T 
INDEXC(I) x N0EX2 
C 

100 ISUH = ISUH ♦ NEE0CLC1I 

r 

C SAVE VALUE AND INDEX OF LARGEST CLUSTER 
IF (NFEDCLfl) *LT* IBIG) GO TO 120 
TRIG x NFFDCLCI) 

NOXBIG = I 
C 

120 CONTINUE 
C 

C CHECK SUH OF 7FR0 CLUSTERS 

NEFDGR = POCNTO ♦ NODOTS ♦ *5 
ITOT? x NEFDGR 
ISUH = ISUH ♦ NEFDGR 
C 

IDTFF x NOOOTS - ISUH 

VRTTF (6*110) IDTFF « NDXRIG* NEEOCL (N9X8IG) 
no FORMAT ( 14* * POINTS ADDED TO CLUSTER **I2t* ORIGINAL SIZE 
x ADJUST LARGEST CLUSTFP BY DIFFERENCE AND TOTAL IN SDH 
CNODOTS - ISUM) 


c 

c 

199 


NEEDCL(NDXBIG) = NFEOCL (NOXBIG) ♦ 

•»•«•••*•• WRITE M FSSAGES «***«**•* 

WRITE (6*199) 

FORMAT (/, « SYMBOL COUNT PERCFNT NUH REQ INGE*!*) 
WRITF (6*200) (TSMBLS(I) •ISUHCL(I) *PRCFNT (I) *N£FDCL( I) *I*I : 
FORMAT (2I7*2X*F6. 1*218) 


200 
C 

C WRITE SUM NEFOEO FOP 7FRO GROUP 
WRITE (6*300) NEEOGR 

300 FORMAT (//* • NIJMQFQ NEEDED FOR ZERO CLUSTERS = * 
RETURN 
FND 


>131) 
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SEL01920 
SEL01930 
SFL0I940 
SEL01950 
SFL01V6Q 
SEL0I970 
SEL01980 
SEL01990 
SFL02000 
SFL0201 0 
SEL02C20 
5FL02013 
SFL02040 
SEL020S0 
SEL020A0 
SEL02070 
SFL020H0 
SEL02090 
SEL02I00 
SEL021I0 
SEL02120 
WAS* * 14) SFL021 10 
SEL02140 
SEL0215Q 
SFL02160 
SEL02170 
SFL02180 
SFL021R0 
=I*NOCLS)SEL02/00 
SEL0221 0 
SFL02220 
SFL0221G 
SFL02240 
SFL02250 
SFL02P60 
SEL02270 
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SYMBOL 

nocls 

TDOTCL 

LOCATION 

n 

440 

SYMBOL 
CLSUM 
I USED 

SYMBOL 
LTOTAL 
NO! AST 

LOCATION 

0 

4FB0 

SYMBOL 

LGRIO 

SYMBOL 

mtotal 

•column 

LOCATION 

0 

4*4 

i 

SYMBOL 

NOOOTS 

SYMBOL 
NOACO 
SFGM 
NOI NFS 

LOCATION 

0 

6R 

AB 

1 

SYMBOL 

LNSOIL 

DATE 

SYMBOL 

nines* 

LOCATION 

E4 

i 

SYMBOL 

TRC0M« 

SYMBOL 

TD 

TRIG 

LOCATION 

EC 

100 

< 

SYMBOL 

HOPES 

NOXPIG 

SYMBOL 

15 

3*0 

LOCATION 

110 

1D3 

1 

SYMBOL 

40 


COMMON Rl OCK /CLSTR / MAP SIZE 


LOCATION 
4 

7on 


SYMBOL 

ISUMCL 

INOFXC 


LOCATION 
8 

•SI 24 


SP94 


COMMON RLOCK /LISTRO / MAP SI7F 


IOC AT TON 
4 


SYMBOL 
LIST 


LOCATION 
* 


4F84 


COMMON RIOCK /PE OUIR / MAP SIZE 


tor AT TON 

4 


SYMRfH, 

HATCHS 


LOCATION 

a 


480 


COMMON RLOCK /MJSC 


LOCATION 

4 
AC 


SYMBOL 

IACODT 

IGRIOB 


/ MAP SIZF 


SUBPROGRAMS CALLFD 

LOCATION SYMBOL 

rn 


SCALAR MAP 
LOCATION 
Fflj 
1 04 


SYMBOL 

^RCNTO 


FORMAT STATEMENT map 

LOCATION SYMBOL 

I3F 1-30 


LOCATION 
1C 
7C 


LOCATION 


LOCATION 

F4 

lOfl 


LOCATION 

161 


AC 


SYMBOL 

ISMBLS 

NOEX2 


SYMBOL 

NFEOCL 


SYMBOL 

IOATA 


SYMBOL 

41 

IGRION 


SYMBOL 


SYMBOL 

JSUW 

IOIFF 


SYMBOL 

199 


LOCATION 

170 

6?BC 


LOCATION 

4F14 


LOCATION 
- 170 


LOCATION 

4C 

90 


LOCATION 


LOCATION 

Fa 

10C 


LOCATION 

IQ* 


ITOT2 


SYMBOL 

NFEDSR 


SYMBOL 
LINE NO 


SYMBOL 
NHF ILE 
NOPGES 


LOCATION 

?DB 

6290 


! OCATION 
4F7C 


LOCATION 


LOCATION 

60 

A4 


SYMBOL LOCATION 


SYMBOL 

ISOM 


SYMBOL 

200 


LOCATION 

FC 


LOCATION 

1C4 


•OPTIONS IN EFFFCT* TO*EBCOIC»SOURrF«N0LlST*DECK*NOLGADtHAP 
•OPTIONS IN FFFECT* NA«E = RDSUMS * LINECNT * 7S 

•STATISTICS* S0URCF STATFMFNTS = S4«PP0GP4M SIZE = 

•STATISTICS* NO DIAGNOSTICS GENERATED 
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non? 

0003 

0004 

nons 

non* 


0007 

OOOft 

0009 

noio 


noil 


oni? 

0013 

0014 


0015 

0016 

0017 


0018 

0019 

oopo 

OOPl 

0072 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 


SUBROUTINE FIL209 


PURPOSE: OFTFRMLTNF 1. 1ST OF HOTS FOR AI«S TO LABEL 


*•*••«•••* INPUT *♦*♦•****♦ 

HTOTAL TOTAL NOHRFP OF MATCHING DOTS FOIND 
NOOOTS TOTAL NUHREP OF MATCHING OOTS NFFOED 
IUSFO MATRIX OF hots USER 


********** OUTPUT **■ 
IUSFO MATRIX <fiF OOTS USER 
LTNFNO L INF NIJMRFP 
KOLUMN SAMPLF NUMBER 
LGRIO GRID TYPE 


lOOTCL 

NFFOCL 

NFEOGP 


******* INPUT ********** 

CLUSTER APRAY FOR P0Q OOTS 

NUHRFO NEFOED FOR EACH CLUSTER 

NUMBER NEFOFD FOR TVO OOTS OR LESS GROUPS 


C 

C 


•*»•••*«•• OUTPUT ********** 

MATCHS COUNT OF MATCHFS FOR EACH CLUSTER 

LIST MATRIX 1-PLANK AI LARFL* 2-LINF NUMBER* 3-SAHRLF 
4-CLUSTFR INDEX, S-GRIO 
HTOTAL TOTAL NUMBER OF OOTS FOUND 

COMMON /CLSTR/ NOCLS* CL SUM* ISUHCL (901 * ISMRLS (90) *PRCFNT<90) * 
t TOOTH C?l?) *TUSEO 1117* 1961 *|H0EXC(901 *N0EX2* IT0T2 
LOGICAL*! IUSE0 

COMMON/RF01IIR/HTOTal*NOOOTS*HATCHSC90)»IOATA(196)iiLINFNO.KOLUHN 

COMMON/L ISTRO/LTOTaL ,LGPin,LIST (999*51 *NEEDCL (90) i.NEFOGRtNOLAST 

COMMON /HISC/ N0&CQ* LNS0TL(6>* IAC0DT(2*6)« AT (51 * NMpILE (2) « 

1 SF6M*0ATE (4) * IGRIOB (5) * IGPIDNCS) *NOPGFS*NOLN£S 

SAVE OOTS AS NFFOFO TO Fill CLUSTER REOUIREHENTS 
00 140 I = l.?09 
INDEX = IOOTCL ( I ) 


i INENO = ((T-D/19 * l) * 
KOLUHN s (MOOC 11-11*19 1 


10 

♦ 11 


10 


C CHFCK TO SFF IF THIS CLUSTER IS PART OF 7FRO GROUP 
IF (NFFOCL (INOFX) .NE. 0) GO TO 100 
C 

c part of 7fro group* apf more nfeofd? 

CCCC TF (NFFOGR «FQ. 0) GO TO 13S 
IF CNFEDGR «FO» 0) GO TO 1?0 
NEFOGR * NEEOGR - 1 
GO TO 110 

C CHFCK TO SEE IF MORE PIXELS ARE NEEDED FOR CURRENT PIXEL'S CLUSTER 
100 CONTINUE „ „ 

CCC IF (HATCHS ( INOEX) .FQ. NFFOCL (INDEX J ) GO TO ITS 
KrtTCHSl INDEX) * MATCHS(INOFX) «• I 
C 

C HTOTAL * SUM OF ALL POINTS NFFOED TO SATISFY USER SPECIFIED NUH PTS 
110 IF (HATCHS ( INOFX) .LF. NFFOCL ( INDEX) ) HTOTAL = HTOTAL ♦ 1 
c 

C LTOTAL * SUM OF ALL POINTS IN LIST INCLUDING OOTS NEEDED FOR HATCHES 


C 
120 


AND OTHER 209 DOTS 


C 

C 


LTOTAL * LTOTAL ♦ 1 
LTST (LTOTAL •?) * LTNFNO 
LIST(LTOTAL*B) = KOLUMN 
l 1ST (LTOTAL*4) s INOFX 
LIST (LTOTfiL**>) = 1 

SFT DOT TO RE USED 


SEL0??*0 

SEL02P9O 
SFL0P190 
SFLGP310 
SFL023P0 
SEL02T *0 
SFLOPT40 

SELOP v«o 
SFLGPI^O 

SFL0?3?n 

selo?i w q 

SFLOPl^a 
SFL0P400 
SFLQ2410 
SFL024PQ 
SFL0P430 
SFL0P440 
SEL024SO 
^FL0?4^n 
SFLQ2*70 
SFL0P4B0 
SFL02490 
SFL02WG 
SEL0PS1U 
SFLOPSPO 
SELOPS30 
SFLO2S40 
SFLOPSMl 
SFL02V.0 
SFL0PS7O 
SFLOPSPG 
SFLO ?V*0 
SFL0260U 
SFLO2M0 
SELOP6P0 
SFLO2610 
SFL02640 
SFLOP^SO 
SEL026^O 
SFL0267O 
SELOP^G 
SEL02690 
SFL02700 
SFL02710 
SEL02720 
SFL02710 
SFLO? 740 
SEL027SQ 
SFL0P76O 
SFL02770 
SFL027H0 
SEL0P790 
SEL02H00 
SFL0P810 
SEL02H/0 
SELO2H30 
SFL02R4C 
SFL028S0 
SEL02«60 
SFL0PB70 
SEL028B0 
SFLO2890 
SFL0P900 
SFL02Q10 
SEL02920 
SFL0P9IO 
SFL0P9AO 

SFLO?9«*0 

SEL0?9*0 

SFL0P970 

SFLO?9*0 
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0023 

135 

C 

IUSEDCLINENO.KOLUMN) = .TRUE. 

0024 

140 

C 

CONTINUE 


L 

c 

c 


0025 


TGPIDRm = 1 

0026 


IGPinN<l) = 209 

A027 


NDLAST = 209 

0028 


MTOTAL at ?09 

0029 


RETURN 

0030 


END 
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SEL029O0 
SEL03000 
SEL03010 
SEL03020 
SEL03030 
SEL03040 
SEL03050 
SELQ30M) 
SEL03070 
SEL03080 
SEL03C^0 
5EL03IC0 
SEL031 10 
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SYMBOL 

NOCLS 

IOOTCL 

LOCATION 

0 

440 

evunn , COMMON BLOCK 

clsu 8 l location 

IUSEO 790 

/ LLSTR u / MAP SI7E 

rsuSSt location 

Inoexc G 1 2 * 

6?94 

SYMBOL 

ISHBLS 

NDEX2 

LOCATION 

170 

6 ? 8 C 

SYMBOL 

PRCENT 

ITOT 2 

LOCATION 

206 

6290 

SYMROL 

mtdtal 

KOLUHN 

location 

0 

484 

cvuom C0HHflN BLOCK 

nooots location 

/RFOUIR / M*p 
SYMBOL 
HATCHS 

SIZE 

LOCATION 

8 

488 

SYMBOL 

IOATA 

LOCATION 

170 

SYHBOL 

LINENO 

LOCATION 

ABO 

SYMROL 

ltotal 

ndlast 

location 

0 

4FflO 

cvuani C0HH <W BLOCK 
i S rS?n L LOCATION 

L*5RIO 4 

/LISTRQ / MAP 
SYMBOL 
LIST 

SIZE 4F04 

location 

8 

SYMBOL 

NFFDCL 

LOCATION 

4F14 

SYMBOL 

NEEOGR 

LOCATION 

4F7C 

symbol 

NOACO 

SFGM 

nolnfs 

LOCATION 

0 

68 

A0 

common block 
SSfc location 
Bate *c 

/HISC / MAP 

SYMBOL 
TACODT 
IGPID 8 

SIZE 

LOCATION 

1C 

7C 

AC 

SYMBOL 

AI 

IGRIDN 

LOCATION 

4C 

90 

SYMBOL 

nmfile 

NOPGES 

LOCATION 

60 

AA 

SYMBOL 

T 

LOCATION 

00 

SCALAR MAP 
TMn?2 L LOCATION 

index nc 

SYMROL 

LOCATION 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 


N‘^ B = D PTL2S9 R ^tTNEcjf n ^ cK,NoLo ^ o ’ HAp 

IsTtTTC?JS§2 SOUPCF STATFMFNTS = LTNECNT_= 79 

ATISTICS NO DIAGNOSTICS GENERatfd 
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SUBROUTINE FIL5X5 


FILE REQUIREMENTS WITH DOTS CHOSED FROM LINES 5-115t SAMPLES 5-195 

••••«••••• TNPUT *••***•**• 

MTOTAL TOTAL NUMBER OF MATCHING DOTS FOUND 
NOOOTS TOTAL NIJHBEB OF MATCHING DOTS NFEDED 
IUSFO MATRIX OF DOTS USED 


C ***•*«*»*♦ OUTPUT *********** 

C IHSFD MATRIX OF DOTS USED 
C LINFNO LINE NIJH8FR 
C KOLUMN S6MPLP NUMBFR - 
C LGPTO GRID TYPE 
C 

COMMON /CLSTR/ NOCIS. CLSUM, ISUHCL 190) * ISHBLS CQOJ .PRCENT (90) i 
1 TDOTCL (212) • IUSFO tll7»196)» INDEXC (90) .NDEX2»IT0T2 
LOGICAL*! I USED 

C COMMON/RFOIIIR/MTOTAL*NODOTS,MATCHS(90) »IDATAC1ROJ.LINENO. KOLUMN 

COMMON/LISTRO/LTOTAL»LGRID.LIST (999*5) .NEEDCL (90) » NEEDGR • NDLAST 

c 

COMMON /MISC/ NOACO, LNSOIL (6) * IAC0DT(2*6>* AKSIt NMFILE (?) t 
1 SF6 m,0ATE(4) *IGRI0R(5) * IGRION (5) *NOPGES*NOLNES 
C 

C 5FT SUM OF PIXFLS GFNFRATED BY LINE NUMBER (5) AND SAMPLE (5) TO 0 
ISUM = o 

C SET GRTD TYPE TO ? 

L6RID = 2 

C GFT RANDOM NUMRFR FOR LINE FROM MULTIPLES OF YEN FROM 5 TO 115 
20 LINFNO = UNIFUl.) * 1 

LINFNO = LINFNO * 10 - 5 

C GET RANDOM NUMBER FOR SAMPLF FROH MULTIPLES OF TEN FROM 5 TO 195 
KOLUMN = OJNIF(20*> ♦ 1) 

KOLUMN = KOLUMN * 1 0 - 5 
C 

C CHFCK TO SEE TF POINT ALREADY EVALUATED 
IF MUSED (LINENO, KOLUMN) ) GO TO 20 

C CALL CKPUT TO PUT PIXFL IN LIST IF MORE OF THIS CLUSTER IS NEEDED 
CALL CKPUT 
C 

C IF SUFFICIENT DOTS FOUND* PETURN TO PRINT LIST 
1S9 CONTINUF 

IF CNODOTS .GT. 3 • AND* MTOTAL .GE. NOOOTS) 60 TO 200 
C 

C ADD 1 TO SUM OF DOTS CHECKED 
ISUM s ISUM * 1 
C 

C ARE THFRE MORF DOTS TO CHFCK? 

IF (ISUM .LT. 209) GO TO 20 


»***«*«*»»SAVE INDICES TO GRID 
IF (NDLAST .EQ. LTOTAL) RETURN 
IGPIORt?) = NDLAST ♦ 1 
IGRinN (?) = l TOTAL 
NOLAST = LTOTAL 

RFTURN 

FND 


SEL03120 
SEL03130 
SEL03140 
SEL031S0 
SEL931M) 
SEL03I70 
SEL031M0 
SEL01190 
SFL03P09 
SEL03P1 9 
SFL032P9 
SEL03P13 
SEL03P40 
SFL03PS0 
SEL03P60 
SEL03P70 
SEL03P«0 
SEL03P99 
SFL03300 
SFL0331 0 
SEL033P0 
SEL03330 
SFL03340 
SFL033S0 
SEL03360 
SEL03370 
SELO33B0 
SEL03390 
SEL03409 
SFL03410 
SFL034P0 
SEL03430 
SEL03440 
SEL034S0 
SFL03460 
SEL03470 
SEL034R0 
SEL03490 
SELO3S00 
SEL03S10 
SEL035P0 
SEL03S30 
SFL03S40 
SEL03SS0 
SFL03S60 
SEL03S70 
SEL03S8G 
SEL03S9O 
SEL03600 
SEL036I0 
SEL036P0 
SFL03630 
SEL03640 
SEL036S0 
SEL036G0 
SEL03670 
SEL036M0 
SEL03690 
SEL03700 
SEL0371 0 
SFL037P0 
SEL03730 
SEL03740 
SEL03750 
SEL037G0 
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symrol 

nocls 

IDOTCL 

LOCATION 

0 

440 

SY*ROL 

MTOTAL 

KOLUMN 

LOCATION 

0 

484 

SYMROL 
LTOTAL 
NHL AST 

LOCATION 

0 

4F80 

SYMROL 

hoaco 

SFGM 

NOLNFS 

LOCATION 

0 

68 

A8 

SYMROL 

JJNTF 

LOCATION 

C8 

SYMBOL 

TSUM 

LOCATION 

08 
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PURDUE / 
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COMMON R| OCK 
5Y-0OL LOCATION 

IUSEO 7R0 

/CLSTR / HAP 

SYMBOL 
ISUHCL 
INOEXC 

SI7E 

LOCATION 

8 

6124 

6294 

SYMBOL 

ISMBLS 

NDFX2 

LOCATION 

170 

628C 

SYMBOL 

PRCENT 

IT0T2 

LOCATION 

208 

6290 

COMMON BJ OCK 
SYMBOL LOCATION 
NODOTS A 

/RFOUIR / MAP 

symbol 

matchs 

SI7F 

LOCATION 

8 

488 

SYMBOL 

'[DATA 

LOCATION 

170 

SYMBOL 

LINENO 

LOCATION 

480 

COMMON BLOCK 
SYMBOL LOCATION 
LGRIO * 

/LISTRO / HAP 
SYMBOL 
LIST 

SI7F 4FB4 

location 

8 

' SYMBOL 
NEFDCL 

LOCATION 

4E14 

SYMBOL 

NEEOGR 

LOCATION 

4F7C 

COMMON Rl OCK 

SKSft location 

DATE 6C 

/MISC / “AP 

SYMBOL 
IACOOT 
IGPIDB 

SI7E 

LOCATION 

1C 

7C 

AC 

SYMBOL 
A I 

IGPIDN 

LOCATION 

4C 

90 

SYMROL 

NMFILE 

NOPGES 

LOCATION 

60 

A4 

SUBPROGRAMS CALLED 
SYMBOL LOCATION SYMBOL 

LOCATION 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SCALAR MAP 
SYMBOL LOCATION 

SYMBOL 

LOCATION 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 


•OPTIONS IN EFFECT* 


•OPTIONS IN EFFECT* 
•STATISTICS* 
•STATISTICS* 
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PAGE 0001 


oooi 


0002 

0003 

0004 

0005 

0006 


0007 

oooa 


0009 

0010 


0011 

0012 


0013 

0014 

0015 

0016 
0017 


0018 

0019 

0020 
0021 

0022 

0023 


C 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUftQOUTINF FIL10S 

FIIL RFOUIRFMENTS with DOTS CHOSEN FROM LINES 10-1 10 f SAMPLES 5—195 


•••»«*«*•» INPUT 

MTOTAI. TOTAL NUMBER OF MATCHING DOTS FOUND 
NODOTS TOTAL NIJMRER OF MATCHING DOTS NEEDED 
IUSFO MATRIX OF DOTS USED 


C 

c 

c 

c 

c 

c 

20 

C 

C 


********** OUTPUT ********* 0 * 

IUSFO MATRIX OF DOTS USED 
LTNPND LINE NUMBER 
KOLUMN SAMPLE NUMBER 
LG»m GRin TYPE 

COMMON /CLSTR/ NOCLS* CLSUM, ISUMCL (90) • ISHRLS (90) tPRCENT (90) * 

1 IDOTCL (212) * TUSEO ( 1 17* 1 96) < INDEXC (90) *NDEX2* IT0T2 
LOGICAL*! IUSEO 

COMMON/PEQi JlR/MTOT AL*NOOOTS *MaTCHS ( 90) * I DATA (196) * LINFNO* KOLUMN 
COMMON/LISTRO/LTOTAL^LGRTO, LIST (999,5) ,NEEOCL(90) *NEEDGR*NDLAST 
COMMON /MfSC/ NOACO, LNSOIL (6) * IACQDT(2*6), AT(5)>> NMFILE (2) t 
1 SFGM,nATE(4) tIGRinR(5) ♦ IGRION (5) ♦NOPGESfNOLNES 

SFT SUM OF PIXELS GPNFRATED BY LINE NUMRFR (10) AND SAMPLE (5) TO 0 
TSUM ~ 0 

SFT GRTD TYPE TO 3 
LGRIO = 3 


C 
C 

c 
c 

c 
c 

c 
c 

c 
c 

c 

c 

200 


GET RANDOM NUMRFR FOR LINE FROM MULTIPLES OF TEN FROM 10 TO 110 
LINFNO = IJNIFC11.) ♦ 1 
LINFNO = LTNFNO *10 

GFT RANDOM NUMRFR FOR SAMPLE FROM MULTIPLES OF TEN FROM 5 TO 195 
KOLUMN = UN I E ( 2 0 • ) ♦ 1 
KOLUMN = KOLUMN * 10 - 5 

CHFCK TO SEE IF POINT ALREADYFVALUATED 
IF ( IUSEO (LINENO* KOLUMN) ) GO TO 20 

CALL CKPUT TO PUTPI*R_ IN LIST IF MORF OF THIS CLUSTER IS NEEDED 
CALL CKPUT 

IF SUFFICIENT DOTS FOUND, PFTURN TO PRINT LIST 
IF (MTQTAL ,FQ. NOnoTS) GO TO ?00 

ADD 1 TO SUM OF DOTS CHECKED 
TSUM s I SUM ♦ 1 

ARE THERE MORE HOTS TO CHECK? 

IF (TSUM .LT. 229) GO TO 20 


S AVF TNOICFS TO GRID 
IF (NOLAST .FO. LTOTAL) RETURN 
TGRIOR (3) = NOLAST ♦ 1 
IGRTON (3) « LTOTAL 
NDL AST s LTOTAL 

RETURN 

FND 


SEL03770 
SEL03780 
SFL03790 
SEL03H00 
SEL038I0 
SEL03820 
SEL03830 
SEL03H40 
SFL038SO 
SFL038^0 
SEL03H70 
SEL038MO 
SEL03R90 
SEL03900 
SFL03910 
SEL03920 
SEL03930 
SFL03940 
SFL03950 
SEL03960 
SFL03970 
SEL039H9 
SEL03990 
SEL0400G 
SEL04010 
SEL04 020 
SEL04030 
SFL0404Q 
SFL040b0 
SEL04060 
SFL04070 
SEL04080 
SFL04090 
SEL04I00 
SEL04110 
SEL04120 
SFL04130 
SEL04140 
SEL04150 
SEL04160 
SEL04170 
SEL041R0 
SEL04190 
SEL0420O 
SEL04210 
SEL04220 
SEL04230 
SEL04240 
SEL04250 
SEL04260 
SFL04270 
SEL04280 
SEL04290 
SEL04300 
SEL04310 
SFL04320 
SEL04330 
SFL04340 
SEL043S0 
SEL04360 
SEL043T0 
SEL04380 


filths 


DAT F = 60IST 


FORTRAN IV G LFVFL 21 
FILE SFLOOTS 


14/38/S6 


PUPOUE / LARS 3031 


PAGF 0002 


SYMROL 

NOELS 

TOOTCL 


SYMBOL 

MTOTAL 

KOLtIHN 


SYMROL 

LTOTAL 

NOLAST 


SYMROL 
NOACO 
SFOM 
NO! NFS 


LOCATION 

SYMBOL 

0 

CLSUM 

440 

I USED 

LOCATION 

I 

SYMBOL 

0 

NODOTS 

484 

LOCATION 

< 

SYMBOL 

0 

1 GRIO 

4F80 

LOCATION 

( 

SYMBOL 

0 

LNSOIL 

68 

DATE 


COMMON BLOCK /CLSTR / MAP SITE 6294 
LOCATION SYMBOL LOCATION 

4 ISUMCL 8 

700 IMOEXC 6124 

COMMON BLOCK /PFQUIR / MAP SI7F 48B 

LOCATION SY«ROL LOCATION 

4 maTCHS R 


ION BLOCK /LISTRQ / HAP SIZE 4FB4 
LOCAT ION SYMBOL LOCATION 

4 LI C T R 


A B 


COMMON PIOCK /MISC / MAP SIZE 

LOCATION SYMBOL LOCATION 

4 I A COOT 1C 

6C IGRI08 7C 


AC 


SYMBOL 

ISMBI.S 

NDEX2 


SYMBOL 

IDATA 


SYMBOL 

NEFOCL 


SYMBOL 

AI 

IGRION 


LOCATION 

170 

62BC 


LOCATION 

170 


LOCATION 
4 E 1 4 


LOCATION 

4C 

90 


SYMBOL 

PRCFNT 

ITOT2 


SYMBOL 

LINENO 


SYMBOL 

NEE06R 


SYMBOL 

NMFILE 

NOPGES 


LOCATION 

208 

6290 


LOCATION 

480 


LOCATION 

4F7C 


LOCATION 

60 

A4 


SUBPROGRAMS CALLED 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

UNTF CR CKPUT CC 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCAHON 


SYMBOL 

TSIJM 


LOCATION 

DR 


SCALAR MAP 
SYMBOL LOCATION 


symbol 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


location 


TD*FRCOIC.SGURrE«NOLIST.DECK*NOLOAD,HAP 
•OPTIONS TN FFFFCT* NAME =r FTL1HS . LINFCNT = 7S 

♦STATISTICS* SOURCF STATEMENTS = 

♦STATISTICS* NO DIAGNOSTICS GENE°ATFD 


23»PR0GRAM SIZE = 


670' 


FORTRAN IV G LEVEL 21 


FILSIO 


DATE * 801 *>7 


14/38/56 


PAGE 0001 


FTLF 5FL00TS 


PURDUF / LARS 3031 


0001 


non? 

0003 

0004 

nnos 

0006 



0018 

0019 

00?0 

OOP! 


00?? 

00?3 


SUBROUTINE FIL510 
C 

C FTLL REOUIREMFNTS WIT* DOTS CHOSEN FROM LTNFS 5-115* SAMPLES 10-190 
C 

C ##*****#*# INPUT »#**•***•* 

C MTOTAL TOTAL NUMBER OF MATCHING HOTS FOUND 
C NODOTS TOTAL NUMBER OF MATCHING flOTS NFFDEO 
C IIJSFD MATRIX OF DOTS USED 

C 

C ********** OUTPUT *********** 

C I USED MATRIX OF DOTS USFO 

C LINFNO LINE NUMBER 

C KOLUHN SAMPLE NUMBER 
C LGPIf) GRID TYPE 

C 

COMMON /CLSTR/ NOCIS* CLSUM* ISUMCi (901 * ISMRLS C90 ) *PRCENT (90) t 
1 TDOTCL (?1?) % TU5E0 ( 117* 196) * INDEXC (90) tNDEX2* ITOT? 

LOGICAL*! IUSED 
C 

C0MMnN/RE0ilIP/MTOTAL*NnD0T^*MATCHS(901 « IDATA (196) *L INFNO*KOLUMN 
COMMON/LISTRO/LTOTAL^LC,RID*L*IST (999*5) *NEEDCL (901 *NEEOGR*NOLAST 
C 

COMMON /MfSC/ NOACO* LNSOIL (6) * TAC0DT(?*6)* AT (5) * NHFILF (2) t 
1 SEGM*nATF(4) *IOPinB(B) *I6PIDN(S) *N0PGF5*N0LNE5 
C 

C SFT SUM OF PIXELS GFNEPATED RY LINE NUMBER (5) AND SAHPLF (10) TO 0 
I SUM = 0 
C 

C SFT GRTD TYPE TO 4 
LGRin = 4 
C 

C GFT RANDOM NUMBER FOR LINE EROH MULTIPLES OF TEN FROM 5 TO 115 
?0 LINFNO = UNIF (12.1 ♦ 1 

LINFNO = LINFNO * in - S 
C 

C GFT RANDOM NUMBER FOR SAMPLE FROM HULTIPLFS OF TEN FROM 10 TO 190 
•COLUMN = UN I F ( 1 9 • ) * 1 
KOLUMN = KOLUHN * 10 
C 

C CHFCK TO SEE IF POINT ALREADY EVALUATED 
IF ( IUSED (LINFNO. KOLUHN) ) GO TO 20 
C 

C CALI CKPUT TO PUT PIXEL IN LIST IF MORE OF THIS CLUSTER IS NEEDED 
CALL CKPUT 

C IF SUFFICIENT DOTS FOUND* PFTURN TO PRINT LIST 
IF (MTOTAL .FO. NOOOTS) GO TO ?00 
C 

C ADD 1 TO SUM OF DOTS CHECKED 
ISUM = I SUM ♦ 1 
C 

C ARF THERE MORF DOTS TO CHFCK? 

IF (TSUH .LT. ?2B) GO TO 20 

C *•••*•*••* SAVF TNOICFS TO GRTD ********** 

200 IF (NDLAST .FO. LTOTAL) RETURN 
ICRir>F*f4) = NDLAST ♦ 1 
IGPTDN (41 = LTOTAI 
NDLAST = LTOTAL 
C 
C 

PFTURN 

END 


SELQ43R0 

SEL04400 

SEL04410 

SFL04420 

SFL0443G 

SFL04440 

SEL044S0 

SEL04460 

SFL04470 

SFL0448D 

SFL0449D 

SFL04SLO 

SFL04S1C 

SFLG452C* 
SFL04^3O 
SFL0454}* 
SFL04US0 
SFL04S60 
SFL04570 
SFL045BO 
SEL04S95 
SFL04600 
SEL0461U 
SFL046/0 
SFL0463G 
SEL0464Q 
SEL046SO 
SEL0466G 
SEL04670 
SFL04680 
SFL04690 
SEL04700 
SEL04710 
SFL047?tj 
SFL04 7Lf 
SEL04740 
SEL047S0 
SFL04760 
SEL04770 
SEL047H0 
SFL04790 
SFL04B03 
SFL04B10 
SFL04R20 
SEL04P30 
SFL04R40 
SFL04BS0 
SEL04860 
5FL04B70 
SFL0488G 
SFL04890 
SFL04900 
SCL04910 
SFL0492O 
SEL04930 
SFL04940 
SEL049S0 
SEL04960 
SEL04970 
SFL04980 
SEL04990 
SELOSOOO 
SEL05010 
SEL05020 


FORTRAN IV 6 LFVFL 

ftlf sfloots 


?1 


BATE = *10 1ST 
PUWHJE / LARS 3031 ' 


14 / 38/56 


PAGE 0002 


SYMBOL* 

nocls 

TDOTCL 

LOCATION 

0 

440 

COMMON BLOCK 
SYMBOL LOCATION 

TUSEO 700 

✓CLSTB / NAP SIZE 

?sa?t Loc * T r' 

INOEXC 6124 

6294 

SYMBOL 

ISMBLS 

N0EX2 

LOCATION 

170 

628C 

SYMBOL 

PRCENT 

IT0T2 

LOCATION 

2B8 

6290 

SYMBOL 
MTOTftL 
KOI IJHN 

LOCATION 

0 

484 

COMMON BLOCK 

sssk Loc * T r 

/RFOUIR / MAP 
SYMBOL 
HATCHS 

SIZF 

LOCATION 

8 

488 

SYMBOL 

idata 

LOCATION 

170 

SYMBOL 

LINENO 

LOCATION 

480 

symbol 

ltoth. 

NOLAST 

LOCATION 

0 

4F8ft 

common block 

i S r2?S L LOCATION 

LGRIO 4 

/LISTRO / MAP 
SYMBOL 
LIST 

SIZE 4F84 

LOCATION 
8 

SYMBOL 

NEFDCL 

LOCATION 

4E14 

SYMBOL 

NEEOGR 

LOCATION 

4F7C 

SYMBOL 

noacg 

SFOM 

molnfs 

location 

0 

68 

A8 

COMMON BLOCK 
SYMBOL LOCATION 

HATE «C 

/RISC / MAP 

SYMBOL 
IACOOT 
IGRIOB 

SIZE 

LOCATION 

1C 

7C 

AC 

SYMBOL 

AI 

IGRION 

LOCATION 

4C 

90 

SYMBOL 

nhfile 

NOPGES 

LOCATION 

60 

A4 

SYMBOL 

UNTF 

location 

C8 

cvMBni SUBPROGRAMS CALLFO 
CKPNT L LOCATION SYMBOL 

LOCATION 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

symbol 

TSUM 

location 

OS 

„ SCALAR MAP 

SYMBOL LOCATION 

SYMBOL 

LOCATION 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 


•OPTIONS in feefct* 

•statistics* 


ni> oi&smrSsIiFn ?3 ' pnMB «“ s* = 


670 






HO-VlW 




rnor PAN IV G LFVEL 21 


FTtPAN 


DATE = 80 IV* 


14/33/56 


FTLF SELQOTS 
0001 


0002 

0003 

0004 

0005 

0006 


0007 

0008 

0009 

0010 
0011 

0012 

0013 

0014 

0015 

0016 
0017 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

20 

c 

c 

c 

c 


c 

c 


PURDUE / LAPS 3031 

SUBROUTINE FILPAN 

FTl L REQUIREMENTS MlTH DOTS CHOSEN AT RANDOM 


**•««*•••» INPUT ********** 

HTOTAL TOTAL NUMREP OF MATCHING DOTS FOUND 
NODOTS TOTAL NUMRFR OF MATCHING DOTS NFEDED 
IUSED MATRIX OF DOTS USED 

**«••»•••• OUTPUT *********** 

lUSFn HAT R IX OF DOTS IISFD 

ltnfno linf numrfr 

•COLUMN SAMPLF NUMBER 
LGRTO GRID TYPF 

COMMON /CLSTR/ NOCIS* CLSUM* ISUMCL (90) ♦ ISHRLS (90) »PRCENT (90) t 
1 TOOTCL ( 21 2) ♦ IUSED ( 1 17 * 1 96) « INDFXC (90) »NDEX2*TTOT2 
LOGICAL*! IUSED 

COMMON/PEOUIR/MTOTAI • NODOTS *MATCHS (90) ♦IDATAC106) *LINENO*KOLUHN 
COMMON/LlSTRO/LTOTALtLGPID^LIST (999*5) *NEEDCL(90> *NEEDGR* NOLAST 

COMMON /MIS C/ NOACO% LNS0IL(61* TAC0DT(2.6)* AI (5) * NMFILE(2>* 

1 SFG U *OATF (4 ) * IGRIOB (5) *IGRlnN(5) *N0PGES*N0LNES 

SFT GRID TYPE TO 5 
LGPTO = 5 

GFT RANDOM NUMRFR FOR LINE 
LINFNO = UNIFU17.) ♦ 1 

GFT RANDOM NUMRFR FOR SAMPLE 
KOLUMN - UNIF(196.) ♦ 1 

CHFCK TO SEE IF POINT ALREADY EVAALUATED 
IF ( IUSED (LTNFNOiKOLUMN) ) GO TO 20 
CALL CKPUT TO PUT PIXEL IN LIST IF MORE OF THIS CLUSTER IS NEEDED 
CALL CKPUT 

CHECK TO SFF IF FNOUGH DOTS FOUND 
IF (MTOTAL .LT. NODQTS) GO TO 20 

I GRIDS (5) = NDLAST ♦ 1 
IGRT0NC5) = LTOTAl 
NDLAST = LTOTAL 
RFTURN 
FND 


SEL05030 
SEL05040 
SEL05G50 
SEL05060 
SEL0S070 
SEL05080 
SFL0S090 
SFL0S100 
SEL05110 
SEL051P0 
SEL05130 
SFLOSl^O 
SELOS1S0 
SEL05160 
SEL05170 
SEL0S180 
SEL05190 
SEL05200 
SEL0521 0 
SEL05220 
SEL05230 
SEL05240 
SFL05250 
SEL05P60 
SEL05270 
SEL05280 
SEL05290 
SFL05300 
SEL05310 
SFL053PO 
SEL05330 
SEL05340 
SEL05350 
SEL05360 
SFL05370 
SFL053R0 
SFL05390 
SEL05400 
SEL05410 
SEL05420 
SEL05430 
SEL05440 
SEL05450 
SFL05460 
SF.L05470 
SEL054H0 
SFL05490 
SEL05500 
SEL055I0 


"AT" 
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FILPAN DATE * 80157 

PURDUE / LARS 3031 


14/38/56 


PAGE 0002 


SYMROL * 

NO^LS 

TOOTCL 

LOCATION 

o 

440 

SYMROL 

CLSUH 

TUSFO 

SYMROL 

MTOTAL 

KOLUMN 

LOCATION* 

0 

4R4 

1 

SYMROL 

NOOOTS 

SY M ROL 
t TOTAL 
NOL AST 

LOCATION 

0 

4F80 

SYMROL 

LGRin 

SYMROL 
NO A CO 
GFGM 
NOL NFS 

LOCATION 

n 

68 

A8 

SYMBOL 

INSOIL 

DATE 

SYMROL 

IINIF 

LOCATION 

R8 

SYMROL 

CKPUT 


COMMON PI OCK /CLSTR / MAP SI7E 62R4 
LOCATION SYMROL LOCATION 

4 ISUMCL 8 

7Q0 TfrOFXC 6124 


SYMBOL 

ISMBLS 

NOEX2 


LOCATION 

170 

62«C 


SYMBOL 

PRCENT 

ITOT2 


location 

208 

6290 


COMMON RlOCK /RFOUIR / MAP SI7E 

LOCATION SYHROL LOCATION 

4 HATCHS 8 


488 


SYHROL 

IDATA 


LOCATION 

170 


SYMBOL 

LINENO 


LOCATION 

480 


COMMON BLOCK /LISTRO / MAP SI7E 4F84 
LOCATION SYMBOL LOCATION 

4 LIST 8 


SYHROL 

NEFOCL 


LOCATION 

4E14 


SYMBOL 
NEE OCR 


LOCATION 

4F7C 


COMMON BLOCK /MISC / MAP SIZE 

l OCATICN SYHROL LOCATION 

4 IACOOT 

FC IGRIOB 


AC 


* I V. 

7C 


SYMBOL 

A I 

IGRIDN 


LOCATION 

AC 

90 


SYHROL 

NHFILE 

N0P6ES 


10CATI0N 

60 

AA 


SUBPROGRAMS called 

LOCATION SYMBOL 

PC 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL LOCATION 


•OPTIONS IN FFEFCT« Tr>,FBCDTC*SOURrF.NOLIST«OFrK»NOLOAO.HAP 
•OPTIONS IN FFFFCT* NA M F = FILRAN . LINFCNT = 7S 

•STATISTICS* SOURCF STATFMFNTS = I7»PR0GRAM SI7E = 

•STATISTICS* NO DIAGNOSTICS GENEPATFD 


54? 


^ c- 

r^-j £--~ 














FORTRAN IV G LEVEL 21 


FTLF SELOOTS 

corn 


non? 

0003 
ft 004 

ooos 

ftftftG 


0007 

ftftftft 

nnQ9 


0010 

0011 

ool? 

nnn 

0014 

001 5 

0016 


0017 


ooia 

0019 

0020 


00?1 

00?2 

ftft?3 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


MAIN DATE = R0157 

PURDUE / LARS 3031 


14/38/S6 


PAGF 0001 


SUBROUTINE CKPUT 

PURPOSE z .store oot in list, if it has not reen previously useo 


#»•** INPUT *♦♦****##* 

TOTAL NtJHBFP OF HATCHING HOTS FOUND 
TOTAL N1IHREP OF MATCHING DOTS NEEDED 
MATRIX OF DOTS USED 
l INF NIIMRER 
SAHPi F NUMMFP 

NUHHER NEEDED FOP FACH CLUSTER 

NUHRFP NFFDFn FORGROUP OE CLUSTERS WITH ? OR LESS 
NUMBER OF BATCHES FOUND FOP EACH CLUSTER 
LTS? OE DOTS FOUND 
l GRID GRID TYPE 


HTOTAL 

NODOTS 

IUSED 

LTNFNO 

KOIJIMN 

NFFOCL 

nfedgr 

HATCHS 


»**»•*«»•« OUTPUT *********** 

TUSFD MATRIX Or DOTS USED 
HATCHS NUMBER OF «ATChFS FOUND FOP EACH CLUSTER 
MTOTAL TOTAL NUMBER OF MATCHING DOTS FOUND 
LTOTAL TOTAL NUMBER OE DOTS IN LIST 

COMMON /CLSTP/ NOCIS. CLSUM, ISUMCL 190) * ISHBLS (90) i.PRCENT (90) * 

1 TD0TCL(212) ,IUSFD( 117.196) *INOFXC(9ft) ,N0FX?*IT0T2 

10GICAL*1 TUSFD 

COMHON/PEOHTP/mTOT *L ♦NODOTS *MATCHS ( 90) ♦IOATAClRG) *LlNENO*KOLUHN 
COMHON/LTSTRO/t TOT AL<*LGPID«LIST C9R9 *^) .NEFOCLIOO) •NFFDGR*NDLAST 
COMMON /MTSC/ NOaCO. I NSOIL ( 6) « IACODT (2*6) , A I (SI it NWFILE (2> * 
l SFGM,DATF(4) * IGPTDR (S) » IGPIDN (S) *N0PGFS,L0LNES 

IF ALL OF GRID ? IS NFFDEO SKIP UPDATING PROPORTIONS 

IF (NODOTS .LE. 3) GO TO HO 
CHFCK TO SFF IF PIXFL ALRFAQY USFD 
IF { IUSED (LINENO^KOLUMN) ) RETURN 


READ LINE SELECTED 
READ (?4*LINFND) 


LTNENO* (IDATA(I) ,1=1*196) 


60 

61 

C 

C 

6S 

C 

C 


FIND TNOFX FOR SYMBOL IN CLUSTER TABLE 
ISYH s IDATA (KOLUMN) 

DO 60 K = l,NOCLS 
NDFX = K 

IF (TSYM # FO # TSMBLS(K)) GO TO 6S 
CONTINUE 

VRITF (6*61 ! ISYM,LTNEND*KOLUHN*NOCLS 

FORMAT t« PROGRAMMING FRRDR, TSYM NOT IN TABLE * ISYM=®tI6» 
1 /, iLINFNO, KOLUMN, NOCLS=* *616) 

CHFCK TO SFF IF THIS CLUSTFR PART OF 7ERQ GROUP 
TF (NFFOCL (NOEX) .NF. ft) GO TO 100 


PAPT OF 7FR0 GROUP 
TF (NFFDGR *FO« 
NFFOGR = NEEDGR * l 
GO TO lift 


* ARF MORE NEEDED 
0) GO TO 200 


C 

C CHFCK TO SEE IS HOPE PIXELS APE NEEDED FOR CURRENT PIXEL'S CLUSTFR 
10ft IF (HATCHS (NnFX) .GF. NFFOCL (NDFX) ) GO TO 200 
C 

HATCHS (NO F*> = MATCMS(NOFX) * 1 


C 

c 

c 

c 


lift LAST= LTDTAL 


MOVF DOT INTO l 1ST FDR THIS GRID 


CHFCK FDR NO PRFVIOUS DOTS FOR THIS GRID 


SEL0SS20 
SELG5S39 
SELOSS^O 
SFL05SSO 
SEL0SS6O 
SEL0SS7G 
SELOSSBD 
SEL0SS90 
SEL0S600 
SFL0S61D 
SEL 0 S 6 PO 
SFLOS^ 30 
SEL0S*>4 J 
SEL0S6 4 - 3 
SEL0S6F0 
SFL 0 SK 7 n 
SFL056HfJ 
SFL0S6RH 
SEL0S7ftq 
SELO5710 
SFL0S720 
SEL0S73O 
SEL0574G 
SEL0S7FG 
SFL0S76f* 
SFL0S77? 
SFL0S7HQ 
SFLQS7<^ 

sflosbo^ 

SFUD5MU 

SFLOSBJ -0 
SFLOSH 10 
SFL0SB40 
SELOSB^O 
SEL0SB60 
SFL0SH70 
SELOSBHQ 
SELOSB90 
SFL0S9Q0 
SEL0SP10 
SFL0S9P0 
SFLOSR^i} 
SEL0S940 
SFLOS 4 * 1 0 
SEL0S960 
SFLftS970 
SFLQSPBO 
SEL0S99D 
SFL06000 
SEL06010 
SFL06020 
SFL06O10 
SEL06040 
SEL060SO 
SEL06060 
SFLQ607H 
SEL060B0 
SEL06090 
SEL 061 CO 
SEL06110 
SFL061P0 
SEL061 1ft 
SEL06140 
SEL061^0 
SEL06IGO 
SEL 061 HI 
SFL 06 IHI 3 
SEL061RO 
SFLOf?" » 
SFL06?1^ 
SEL06??ft 
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FORTRAN IV 
FTLF SELOOTS 

0074 

HOPS 

no?6 

nn?7 

oo?8 


0G?9 

0030 

0031 
003? 

0033 

0034 

0035 

0036 

0037 
0030 

0039 

0040 

0041 
004? 

0043 


0044 

004*5 

nn46 

0047 

0040 

0049 


0050 

0051 

0052 


G LEVFL ?1 


CKPtIT DATE * 80157 

PURDUE / HRS 1031 


14/38/56 


C 

C 


IF CHDLAST *F0. LTOTAL) GO TO 159 
IF1RST = NOLAST ♦ 1 
DO 158 J = IFIR5T * LAST 

Tr (LIST ( J.2) .LT. LINFNO) GO TO 158 
IF CLIST C J.?) .FO. LINFNO .AND* LIST(J*3) 

HOVF OLD LIST DOWN 1 PLACF* TO HAKF ROOM 
MTOTAL = HTOTAl ♦ l 
LTOTAL = LTOTA1 ♦ 5 

NOHOVF - t TOTAL - J 
DO 157 K s l^NOMOVF 
TOLD a LTOTAL - K 
NFR a fOtO ♦ 1 
DO 156 L a 1 *5 

156 LtST(NFW.L) a LIST (TOLOtL) 

157 ItONTlNUF 
LIST (%!*?) a LIHHNO 

a KOLtiMN 
a NOF X 
a LGR1D 


.LT.KOUWN) GO TO 158 


C 

158 
C 

159 


LIST f J* 31 
LIST ( J.4) 
LIST C Jt 51 
GO TO 160 

CONTTNtlF 
THIS DOT LAST 


MTOTAL a 
LTOTAL = 


ON LIST 
HTOTAl ♦ 1 
LTOTAL ♦ 1 


LIST (LTOTAL#?} = LINFNO 
LIST (LTOTAL# 31 = KOUIMN 
LIST (LTOTAL. 4) = NOFX 
LIST (LTOTAL #5) = LGRIO 
C 
C 

160 CONTI NUF 
C 

C SFT PTXFL TO MJSFD* 

POO IUSEn(LINENO»KOLUMNl a .TRUE* 
FND 


SFL06P30 

SEL06?*G 

SFL06P50 

SELQ6P60 

SFL06P70 

SFL06P80 

SEL06P90 
SEL063OO 
SFL0631 0 
SFL063? I 
SFL063O 
SFL0614 » 
SFL0615 J 
SEL063*>1 
SFL06T79 
SFL063RO 
SEL0639v3 
SFLU640G 
SFL064 1 £1 
SFL064P0 
SFL064 10 
SEL06449 
SFL0645) 
SFL0646Q 
SEL0647Q 
SFLO64^0 
SEL06490 
SELC6S00 
SFL06510 
SEL065P0 
SFL06S10 
SFL06S40 
SELOb^S.I 
SFL06560 
SFL06570 
SFL06580 
SEL06590 


PAGF 0002 


> 


14/36/S* 


FORTRAN IV G LFVFL 
FTL r 5FL00TS 


2 I 


CKPHT 


mar = Hor>7 

PURDUE / LARS 3031 


SYMBOL 

NOCLS 

innTCt 


SYMROL 
wTOTAL 
<01 »IMN 


sywrol 

l TOTAL 
Htn AST 


SYMBOL 
NO A CO 
SFOM 
NOt NFS 


symbol 

TRCOMA 


SYMBOL 
TFT PST 


SYMBOL 
61 


location 

0 

440 


LOCATION 

0 

4B4 


LOCATION 

0 

4FB0 


LOCATION 

o 

6B 

Aft 


LOCATION 

lia 


location 

nr 


lie 

130 

144 


location 
14 ft 


C OMMON BLOCK /CL5T * YM qoL LOCATION 

SYHB0L LOCATION JSIJMCL ,,-,5 

%SFO 700 IW»F*C * 1 ?* 

COMMON BLOCK /PFOUIP / BAP ^^ATION 
SYMBOL^ LOCATION SYMBOL tOL 

nooots 4 

common block /listbo / map si*£„ 0N 4FB * 
SYMBOL L0CATI«IN LIST a 

lgrio 4 Lt 

COMMON BIOCK /HISC /MAP 
SYMBOL LOCATION SYMBOL L 

LNSOIL £ iGPIOB 


!C 

7C 


SYMBOL 

ISWBLS 

NOE*2 


SYMBOL 

IOATA 


SYMBOL 

NEEDCL 


SYMBOL 

AI 

IGRION 


SUBPROGRAMS CALLED 
SYMBOL LOCATION SYMBOL 


SCALAR MAP 
SYMBOL LOC ATTON 

TSYM 120 


SYMBOL 

NOHOVF 


location 


LOCATION 

124 

13B 


SYMBOL 
NOFX 
I OLD 


location 

170 

62«C 


location 

170 


LOCATION 
• 4E14 


location 

4C 

90 


SYMBOL LOCATION 


location 

12B 

13C 


format statement hap 

SYMBOL LOCATION SYMBOL 


location symbol LOCATION 


snw « arr »» 

N o s {r®o^f« H &-ATFo 


PAGE 0003 


SYMBOL 

PRCEMI 

ITOT2 

loc i ir 

6290 

symbol 

LINEH3 

LOCATION 

460 

SYMBOL 

NEEDGU 

LOCATION 

*F7C 

SYMBOL 

NHFILF 

nopges 

location 

60 

A* 

SYMBOL 

LOCATION 

SYMBOL 

LAST 

new 

LOCATION 

140 

SYMBOL 

location 
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VRTLST DATE * BO 157 

PURDUE / LARS 3031 


I4/3B/56 


nooi 


noo? 

0003 

0004 

ooos 

0006 


c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 


subroutine vptlst 


PURPOSE WRITE I 1ST ON Fit F 37 


LTST 

LTOTAL 


5-GRI0 

TOTAL NUHRFP nr OOTS FOUND 


c 

c 

c 


«••••«•••• OUTPUT ********** 

FILE ON UNIT 37 
REPORT ON PPIMTFR 

COMMON /CLSTP/ NOCI S* CLSU«* ISOMCL (90) # ISMRLS f 90 ) *PRCENT (90) ♦ 
l mom C?I?1 ,THSFOai7»19SI . iNf>FXC(9Q) .NOEX2. I TOT? 

10GIF4L*! IUSEO 

COHMON/OFOUTP/MTOT«L*NOOOTS*HATCHSC90) .I0ATAU96) .LIWFNO.K0LOHN 
COMHON/LISTPO/i TOTAL.LGRICnLISTt999.SJ .NEEOCL COO) .NEFDGR. NOLAST 
COMMON /MISC/ NOACO. INSOILCO). IACW)T(2.6). AT (51 9 NMFILF (2) ♦ 

1 SFGM.o&TEf4J.TGPinR{5) .IGRIONCS) .NOPGFS.NOLNFS 


0007 

C 

ooob 

0009 

110 


c 


c 


c 

OOIC 

0011 

0012 

0013 

c 


C i 

0014 

c 

0015 

0016 

220 


C 

0017 

0010 

0019 

0020 
0021 
0022 

230 


C 

0023 

0024 

r 


c \ 

0025 

0026 
0027 

250 


C 

0020 

260 


C 


C 

0029 

0030 

299 


C 

0031 

0032 

300 


C 

0033 

0034 

310 


C 

0035 

0016 

3:0 


SEL06600 
SFL06610 
SFL06G30 
SFL06630 

INPUT ********** SEL06640 

LIST OP 1-aI LABFL. 2-LINE NUMBER. 3-SAMPLE. 4-CLUSTER IN0FXSELO66SQ 
" SFL06660 

SFL06670 

SFLOF6H0 
SFL06G^o 
SFLO f>100 
SFL06710 
SFL067/0 
5FLO6710 
SFL06740 
SFLO67S0 
SEL0n760 
SFL06770 
SEL06780 
SFL06790 
SEL06B00 
SFL06FI0 
SFL06H30 
SFLC6S3Q 
SFL06B40 
SFL06MS0 
SFL06BF0 
SFL06R70 
5FL06PMG 
SFL06PR0 
SFLG6900 
SFLO6910 
SFLO6920 
SFLC69 
SFL06N%0 
SFL069S0 
SFL0696Q 
SFL06970 
SEL0G9H0 
SFL0G99O 
SFLO79O0 
SFL07010 
SFL070?0 
SFL070 ^0 
SFL07O6O 
SFL070S0 
SFLO7O60 
SFLOTOrO 
SEL070B0 
SFL 070^0 
SFL07100 
SFL07I 10 
SEL0712O 
SFL07J 30 
SFL07140 
SEL071S0 
SFL07160 
SELC7170 
SEL07IB3 
SFL07I90 
SEL07300 
SFL072I0 
SFL07220 
SFL07230 
SFL 072^0 
SFL07P-0 
5FL0 72**9 
SFL07273 
SFL07?*h1 
SEL 072**0 
SEL07 100 


m akc TABLE I F0° AT *S ***** 
CALL SUBROUTINE TO WRITE HF 40 TNG FOR TARLF I 
CALL HFAOTI 

VRITP (6.110) t TOTAL 

FORMAT f/2.41x.»***N0 LABFLS AVAILABLE**** . 

1 //♦4jx*«NtiMRFR OF DOTS AVAILABLE * *.I4) 

*** WRITE TABLE Ia PORTFO BY GPIO *** 

no p*n i = i*s 

IF CTGRIOBCIJ -FO. 0) GO TO 260 
LGRJO = I 
NOPGFS s 1 

CAfL SUBROUTINE TO WPJTF HEADING FOR TABLE IA 
CALL HFOTIA 


WRTTF (6.220) 
FORMAT { • 0* .40X. * 


LINF SAMPLE 


n 


NOLNFS = NOLNFS ♦ 1 
IFTPST = iGRIOPflJ 
LAST = IGRIOWCT) 

OO 250 LINF = IFIRST.LAST 
WRITE (6.2301 CLIST (LINF* J) . J=?*3) 

FORMAT t • 0 * » 39X. * *.415) 

NOLNFS = NOLNES ♦ 2 
TF (NOLNFS .LF. 65) GO TO 2S0 

WRITE HFAOING FOR PAG^S 2-N 
CALL HFOTT \ 

WRITE (6.320) 

CONTINUE 

CONTfNUF 

*** WPITF FTLF ON UNIT 27 (SEGMENT NUMBER) LIST 
WRITE (27.299) LTOTAL. SFGM 

FORMAT (14# » PI*Fi S SELECTED FOR SEGM «.A4) 

WRITE 127.300) ( (L 1ST (I * J) . J=2*5) * I -It LTOTAL) 

FORMAT C4X.4T4 ) 

WRITE (27.310) 

FORMAT (**FND*) 

WRTTF (27.320) UGomBCl). IGRTON ( I ) . T = l .5) 
FORMAT (• GRID P DICES = *. S(I4 f * *.I6.2X)) 


PAGE 0001 
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WRTI ST DATE = 80157 l A/38/56 

PUPOUF / LARS 3031 


0037 

0038 


0039 

0,040 

0041 

004? 

0043 

0044 

0045 


WRTTF (?7*330) OATF 
330 FORMAT (4A41 
C 

C *** WRITE FILE ON UNIT ?3 FOR PROCOURE ? *•* 

C SAVE SUM FOR THF ? OR LESS GROUP IN INOFX FOR FIRST MEMBER OF GROUP 
IF JNDFX? .NF* 0) NFFDCLCNOEX?) = TTOT? 


C 

WRTTF f?3*40n) NOCIS 
400 FORMAT (1514) 

C 

WRITE (23*400) 'NFFDCL(I) *1=1*30) 
WRTTF (23*400) ( INOFXC ( I > • 1=1 *30) 

C 

RETURN 

END 


SEL07310 
SEL07320 
SEL07330 
SEL0734O 
SEL073SO 
SEL07360 
SFL07370 
SEL073B0 
SEL07390 
SFL074O0 
SEL0741G 
SFLG7420 
SFL074 i'J 
SFL07440 
SEL07450 
SEL074G0 
SEL07470 


PAGE 0002 


$ 

Cn> 


FORTRAN IV G LEVFL 
ETLF SELD0T5 


21 


WRTL^T DATE * an 157 

PURDUE / LARS 3031 


14/36/56 


PAGE 0003 


SYMBOL 

NOCLS 

TDOTCL 

LOCATION 

0 

440 

SYMBOL 
CL SUM 
IUSEO 

SYMBOL 
MTOTAL 
KOI OMN 

LOCATION 

0 

4B4 

i 

SYMBOL 

NOPOTS 

SYMBOL 
l TOTAL 
KOI AST 

LOCATION 

0 

AFRO 

i 

SYMBOL 

LGRID 

SYMBOL 

NO A CO 
SFGM 
NOJ NFS 

LOCATION 

0 

6B 

A3 

1 

SYMBOL 

LNSOIL 

DATE 

SYMBOL 

HEAOTI 

LOCATION 
E 4 

SYMBOL 

IBCOH# 

SYMBOL 

LOCATION 

< 

SYMBOL 


COMMON RfOCK /CLSTR / MAP 5I7E 6294 
LOCATION symbol LOCATION 

4 7SUMCL R 

700 INPEXC 6124 


COMMON BLOCK 
LOCATION 
4 


COMMON BLOCK 
IOC AT TOM 
4 


/RFOIJIP / map SIZE 48R 

Symbol LOCATION 
HATCHS a 


/LISTRO / map 
SYMBOL 
LIST 


SIZF 4FB4 
LOCATION 

a 


COMMON BLOCK /HISC / * 
LOCATION SYMR-'L 

4 I AC -ST 

6c igri m 


SUBPROGRAMS CALLED 

LOCATION SYHROL 

ER HEOTIA 


/ MAP SIZE 


EO 


IEIRST 


LOCATION 

P4 


SYMBOL 

LAST 


LOCATION 
1C 
1C 


LOCATION 

EC 


LOCATION 

Eft 


AC 


SYMBOL 

ISMRLS 

NOEX2 


SYMBOL 

IOATA 


SYMBOL 

NFFOCL 


SYMBOL 
A I 

IGftiOW 


SYMBOL 


SYMBOL 

LINE 


LOCATION 

170 

62BC 


LOCATION 

170 


LOCATION 
- 4F14 


LOCATION 

4C 

90 


LOCATION 


LOCATION 

FC 


SYMBOL 

PRCENT 

IT0T2 


SYMBOL 

LINENS 


symbol 
NEf ©SR 


SYMBOL 

NMEILfc 

WOPGES 


SYMBOL 


SYMBOL 

J 


LOCAT ION 
2R8 
6290 


IOC AT ION 
460 


LOCATION 

4E7C 


LOCATION 

60 

A4 


location 


LOCATION 

100 


SYMBOL 

110 

310 


LOCATION 
104 
1 AO 


FORMAT STATEMENT MAP 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

220 14B 230 16R 299 1B3 300 

320 IRS 330 IDS 400 JOB 


LOCATION 

145 


IK EKES* V** EBCDIC ♦SOURCE* NOLI ST ♦ DECK* NOLO AO t MAP 
♦OPTIONS IN FEEECT* NAME s WRTLST * LINFCNT = 7S 

# SJ*I X § TICS * SOURCE STATFMFNTS s 4S, PROSPAM 5 17L = 

♦STATISTICS* NO DIAGNOSTICS GENERATED 


1S00 


FORTRAN IV R LFVFL 
FTLF SFLOOTS 


21 


onai 


0002 


0003 

0004 


0005 

0006 


0007 

0008 

0009 

0010 


BEADTI DATE * B0157 

POTOUF / LARS j03I 


14/3R/S6 


C 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE BFAnTI 
PURPOSE: WRITE REPORT HEARING 


***♦»*» 


INPUT 


0ATF(4) 

IACQOT 

SFGM 

LABRL 


OATF REPORT WRITTEN 
ACQUISITION OATES 
segment OATF 

GROUP LARFi. 


*■ 5** 


********** OUTPUT 

REPORT HEAPING WRITTEN 

COMKON /«ISC/ NGACO* LHS0IL(6). IACGDT(2*6>* AI (5) * NMFILE (2) ? 
1 SFGM, PATE 14) *I6Rin«(5) ♦IGRI0N(5) *NOPGES*NOLNES 

VRTTF (6*100) 

100 FORMAT (1HI* 60X * «TA6LF I«* //* 61X* * SUMMARY * * //) 

C 

c write segment number and gate generated 

ISO WRITE (6*2005 SFGM*QATE 

200 FORMAT C4iT*»SlTE = DATE GENERATED = «*4A4) 

€ 

C VRITr ACQUISITION DATES 

WRITr (6*300) (I* (TACOnT(J*I) * J=1 .2) * IsltNOACQl 

300 FORMAT C/*41X* * ACQUISITION »*!!*« = *,2A4) 

PFTUPN 

FNO 


SEL0746& 

SEL07490 

SEL07500 

SEL07S10 

SEL07520 

SEL07S30 

SFL07540 

SEL07S50 

SEL07S60 

5FL07S70 

SEL07S3O 

SFL07E70 

SELQ7600 

SELG7610 

SFLO7620 

SEL07630 

SFL0764Q 

SELC76S0 

SELQ7660 

SEL07670 

SEL076B0 

SFL07690 

SELQ77G0 

SELO7710 

SEL07720 

SELQ7730 

SELO7740 

SFLQ77S0 

SEL07760 

SELO7770 

SEL077BG 


HEAOTI 


DATE = m 157 


14/38/56 


PAGE 0002 


FORTRAN IV 6 LEVEL 
FILE SFLOOTS 


21 


PURDUE / LARS 3031 


SYMROL 
NOACO 
SFOM 
NOl NFS 


LOCATION 

0 

68 

AQ 


COMMON BLOCK /MISC / HAP SI7E AC 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

LNSOIL 4 TACOOT 1C III 4C NHFILE 

DATE 4C IGRID8 7C 1GRIDN 90 N0PGES 


SYMBOL 

TBCOH» 


LOCATION 

9C 


SUBPROGRAMS CALLED 

SYMBOL LOCATION SYMBOL LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


SCALAR MAP 

SYMBOL LOCATION SYMBOL LOCATION 

I AO J A4 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


FORMAT STATEMENT HAP 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

100 A8 200 T7 300 F2 


SYMBOL 


LOCATION 


SYMBOL 


♦OPTIONS IN EFFECT* IO f FRCf>IC*SOURrE*NOLIST*DFCK,NOLOAD*MAP 
•OPTIONS IN EFFECT* NAME = HFaDTI * LINFCNT = 75 

^STATISTICS* SOUPCF ST ATFMPNTS = 10»PR0GRAM SIZE = 

•STATISTICS* NO DIAGNOSTICS GFNERATEO 


568 


location 

60 

A4 

LOCATION 

LOCATION 

LOCATION 


FORTRAN rv 6 LEVEL 
FILE SFL00T5 


21 


nom 


0002 

0003 


0004 


0005 

0006 

0007 

0008 

0009 

0010 


noil 

0012 

0013 


HEOTIA DATE = 80157 

PUROUF / LARS 3031 


14/38/56 


PAGF 000 i 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


SUBROUTINE HFOTIA 
PURPOSES WRITE REPORT HEADING 

********** INPUT *♦**♦*« 


DATE (43 

iACODTfG) 

SFGM 

LABEL 

LGRID 


OATF REPORT WRITTEN 
ACQUISITION DATES 
SEGMENT DATE 
GROUP LAREL 
GIRn NIJMPER 


100 


110 


C 
C 
C 
C 
150 
200 

C 

C 

C 

C 

C 


*#••**«*«* OUTPUT ********** 

REPORT HEADING WRITTEN 

COHHON/LISTRQ/ITOTAL.LGRID.LIST (999. 5) .NEEDCL (90 > .NEEDGR.NDLAST 
COMMON /MTS C/ NOACO. LNS0IL(6). IACQ0TI2.6) t AIC5) . NMF1LE(2>* 

1 SFGM.DATE(4) .IGRIDRCS) .IGRIDN(5) . NOPGES .NOLNES 

IF (NOPGES *GT « 1) GO TO 150 

*»••»*•*** PAGE l ********** 

WRITE (6.100) LGRin 

.FORMAT C1H1.58X. STABLE IA*. //,61X, ‘ORIGINAL SELECTED DOTS*, // 
1 64X. ‘ORDERED BY GRID* .///,69X» ‘GRID* • 12. //) 

WRITE (6.110) SE6M* DATE 

FORMAT (41 X * • SITE = *.AA,* DATE GENERATED = *,4A4) 

NOLNFS = 9 
GO TO 190 


PAGES 2 — N 


WRITE SFGMENT NUMBER AND DATF GENERATEO 
WRITE (6.200) SEGM,nATF 
FORMAT (1H1 .40X* ‘SITE = ».A4.» 

NOLNES = 1 


PAGES 1 - N 


WRITE ACQUISITION OATES 


nou 

190 

WRITE (6,300) (I. (lACQDTCJ.IU J= 

0015 

300 

FORMAT (/.41X, •acquisition •♦u, • 

0016 

t 

NOLNES = NOLNES ♦ ?*NOACQ 

0017 

r 

NOPGES = NOPGES * 1 

noifl 

V. 

RETURN 

0019 


END 


DATE GENERATED = «,4A4) 


»2A4) 


SEL07790 
SEL07S00 
SFL07B10 
SEL07HP0 
SEL07n 30 
SFL07840 
SFL07K5Q 
SEL07860 
SFL0787Q 
SEL 07880 
SFL07890 
SEL07RCG 
SFL07910 
SEL07920 
SEL07910 
SFL07940 
SEL07950 
SEL07960 
SEL079/0 
SFL079B9 
SFL079QtJ 
SELOBOrO 
SFLOBOIO 
SFL08020 
SFL08030 
♦SFL08040 
SEL08050 
SFL08060 
SFL08Q7 0 
SEL08OB0 
SEL08090 
SEL08 1 00 
SFLOfU 10 
SFL08120 
SFL08I30 
SFL0BJ4O 
SEL08150 
SEL08I60 
SFL0«170 
SEL081H0 
SFL08190 
SEL08200 
SFL03210 
SEL082/0 
SFL0B230 
SEL08240 
SEL08250 
SFL08260 
SFL08270 
SEL08?«0 
SFL08290 


FOOTPAN IV 6 LEVEL 
FTLF SFLDOTS 


21 


HEOTIA HATE = 80157 

PUtfOUE / LARS 3031 


14 / 38/56 


PAGF 


SYMBOL * 
LTOTAL 
NDL AST 

LOCATION 

0 

4F80 

SYMBOL 

L6RI0 

SYMBOL 
NOACO 
SFGM 
NOI NFS 

LOCATION 

0 

68 

AS 

1 

SYMBOL 

LNSOIL 

OATF 

SYMBOL 

IBCO*# 

LOCATION 

B8 

< 

SYMBOL 

SYMROL 

I 

LOCATION 

PC 

SYMBOL 

J 

SYMBOL 

mo 

LOCATION 

C4 

1 

SYMROc 

no 


COMMON BtOCK /LISTRQ / MAP SIZE 


LOCATION 
4 


SYMBOL 
LIST 


LOCATION 
8 


4F84 


COMMON BLOCK /HISC / M AP SI7F 

LOCATION SYMBOL LOCATION 

4 TACOOT 1C 

Ff IGRIOB 7C 


SUBPROGRAMS CALLED 

LOCATION SYMBOL 


SCALAR MAP 

LOCATION 

TO 


SYMBOL 


FORMAT statemfnt MAP 

LOCATION SYMROL 

lis ?oo 


AC 


LOCATION 


LOCATION 


LOCATION 

141 


SYMBOL 

NFEOCL 


SYMBOL 

AI 

TGRION 


symbol 


SYMBOL 


SYMBOL 

300 


LOC AT I ON 
4E14 


LOCATION 

4C 

RO 


LOCATION 


LOCATION 


LOCATION 

16F 


SYMBOL 

NEEOGR 


SYMBOL 

NMFILE 

N0P6ES 


SYMBOL 


SYMBOL 


SYMBOL 


♦ OPTIONS IN EFFFCT* TO ♦FBC0IC*S0URCF* NOLIST t DECK? NOLO AD* MAP 
♦OPTIONS IN FFFFCT* NAME = HFDTIA * LTNFCNT = 7S 

•STATISTICS* SOURCE 5TATFMFNTS = 1 REPROGRAM SI7E = 

♦STATISTICS* NO DIAGNOSTICS GENERATED 

•STATISTICS* NO DIAGNOSTICS THIS STFP 


824 


0002 

LOCATION 

4F/C 

LOCATION 

60 

A4 

LOCATION 

LOCATION 

location 
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PURPOSE: hove data FROM A UNIVERSAL format tape to 
HOVF HIJLTIPLF CHANNELS OF DATA 


»••*»»*•*» INPUT ***♦*•*♦*< 

muitichannel data tapf ON unit 11 


<>••*»••*«» OUTPUT *♦**♦**»« 
FILF ON UNIT ?S 

FORMAT OF NFV FRF ON DISK PS — 


RFC 1 - 117 
I OAT A 


RADIANCF VALUES (196 
(INTE0Fw*4) 


(SEGMENT NUMBER) RADIANCE 
: NUMBER OF CHANNFLS) 


TM°! ICIT INTFGFR (A-7) 
niMENSTON FLDTNF(G)* FLCI2) 


RFSFRVF SPACE FOR 1Q6 * 

o I HENS I ON lOATACPAHO) 


OF CHANNELS PIXELS 


COMMON /INFORM/HFAO (42) * MAPTAP* DATAPE* SAVTAP* HAXFET *GRB0G?4fS 

I Pa^SI7* TAPCHK * TRNSYM, TSTSYH* 6RRG02SQ 

P ntiPSYM* THPSYH, MAXOIV* MIMOIVt SPLMAX*GRBG0?61 

3 SFRIAL* TAPESVf FILESV* GR300270 

4 MAXCLS* NOCLSPt MAXFLD* NOFLOPt NOFLOrJtGRRGOPBO 

5 NOTPFO, NOFFAT, NOFET?* NOFFT4* VARSI7*GR3O9?^0 

6 VARS7P* VARS7A, XSIZ * NOSPECt NOHIST *GRHG0 TOO 

* NnGRP* 01 VSI7 * KFFPLV* PRTLFV, YSIZ ♦ GRB0O UO 

ft XHGH , XI OW , SPCBAS. NOCLS3* PCTSZ *GRR90 *?0 

9TBLOCKOO) .FFTVEC(TO) ♦FFTVC2 (30) « HISVEC (30) * INVERT (10) *R£STVC(3n) GPRQO H ! 

GRB00^4§ 

EQUIVALENCE (FLOTNFU) ,LINSTP) * (FLDINFC4) « 5AMSTR) » G»BnO 3*>l* 

* (FI OINF (?) ,LINFND) , (FLOTNFC55 *5AMFND) * GRBOO 

* (FLDTNFd) , LINING) * (FLOINF (65 *SAHTNC> GRBOOITQ 


SAVTAP * 
TSTSYH* 
MIMOIVt 

NOFLO?* 

NOFFT4, 

NOSPECt 

PRTLFV, 

NOCLS3* 


GRBOOOlO 
T£HP DISK FILE GRPOOOPO 
GPR0003Q 
GRBOOOAO 
GRBOOOSa 
GRBOO06O 
GRR00Q70 
GRfl000«l 
GRROOnRO 
E GRBOOIO^ 

GTB001 ! I 

Graoni^'j 

GRBOOl <j 
GRB001<»0 
GRBOOl Sr) 
GPftaoiGB 
GRB002 70 
GR800 ) H r . 
GRBOOl^l 
GRBOO ?t r \ 
GRBOOPIO 
G»B00PP0 
GPHOOiMQ 
HAXFET tGRBOOPAf? 

6RR00P50 
SPLMAXtGRBOOPGl 
GR3DG?7?I 
NOFLD- tGRROOPBO 
VARSI7*GR800?^G 
NOHIST tGRHOO TOC 
YSIZ ♦ GRB00UO 
PCTSZ *GRB00*?0 


DIMENSION ARRAY(POOO) 

2000 LOCATIONS OF * ARRAY * FOP FIFLO DEFINITION INFORMATION. 

FIFLD INFORMATION STORED AS FOLLOWS 

ARRAYCI) =FIRST FIFLO NAMF FOR THIS CLASS 

(?) =NO. OF VFPTICFS FOR THIS FIFLO (NV) 

(3) —C3*NV*P) — ACTUAL VFRTFX NUMBERS 

(3^NV*P) =TOTAL PIXELS IN THIS FIELD 
(4*NV*?) — ( 1 0*NV # ?) = FLDINF BLOCK FOR THIS FIELD 

DIMENSION LH0LD(4) *LKEFR(4) 

EQUIVALENCE ( IH0L0*LH0LD(4) ) * (KFFP*LKEEP (4) 1 

DATA KH /*«•/* KC /*C */* IBLNK4Y* •/* IEND/** •/tIBLANK/* •/ 
NXLCLS = 1 

•••»••** RFAO DATA FROM \ CKANNFL TAPE *********** 

SKIP OVER DATA IN CC FILE FXCFPT FOR CHANNEL DEFINITION 
READ (?1*6) ( ID AT A ( 1 ) *1—1*80) 

FORMAT (ROAll 

IF (IDATA(l) .FQ. TEND) GO TO 10 

IF (IDATA(l) .NE, KC .OR. TOATA (?) .NE. KH) GO TO 5 

COL » 10 
KGUNT = 0 

NOFEAT = NUMBER (IDATA* COL* FFTVFC* KOUNT) 

IF (NOFFAT .LE.12) GO TO 7 

WRITE ERROR MESSAGE AND STOP 
WRITF (1*Q) NOFEAT 

FORMAT (» MAXIMUM NUMBFR OF CHANNFLS ALLOWED IS 12*** 

1 • NUMBER ON TAPE TS«, 13) 

STOP 

CONTINUE 


G®9003*>«* 

GRBOO 

GRB00170 

GRR003BO 

GRB00390 

GPR00400 

GRH00410 

GRB0(54?0 

GRB00430 

G RB00440 

GRP004S0 

GRB00460 

GRB00470 

GRB004BO 

GRB00ARO 

GRBOOSnO 

GPB00510 

GRB00S20 

GRB00SI0 

GRB00S4D 

GRBOflSSO 

GRH00S60 

GRB00S7Q 

GRBOOSBO 

GRBOOSNO 

GRB00600 

GRR00610 

GRB006PO 

GRB006 JO 

GR80O84O 

GRB006SO 

GRR00660 

GRBOOG70 

GPB0F6HO 

GRR0f»V>j 

GRB00700 

GR800710 




tmrnumieM 


KMnriiMMittiiMfM 






FC 9 TB 4 M IV G LFVFL 
FTLF GP 9 PTAPF 


21 


0023 


0024 

0025 

0026 

0027 

002ft 


0020 

0030 

0031 
003 ? 

0033 

0034 

0035 
-* • 

0036 


0037 

003 ft 


<1039 

0040 

0041 
004 ? 
0043 


0044 

004*5 


0046 


GRPRTAPE DATE = BO 157 

PURDUE / LARS 3031 


14 / 36 /lR 


PAGf 


C 

c 

10 


c* 

c 

c 

20 


GO TO 5 


1600 

C* 

C* 


READ FIELD DEFINITION 
DATAPF s 11 
NOFSKP = 0 

CALL TAPHDR(DAT4PE»N0FSKP1 

N0FLD=0 

TPT=! 

READ Cl) FIFLD NAMF * (?) FT FLO VERTICES* 13) FIELD INFORMATION 
C4) NiJMBFR VFRTTCFS* AND RETURN (5) NUMRFP OF CARDS READ 

ICK = LARF AO (ARRAY ( IPT1 , ARRAY (|PT^2) « FLO INF * ARRAY ( IPT* l ) * NOCRDS) 
NV=ARPAY CXPT+1) 

N0FLn=N0FLO^I 

NSAMP— (SAMFND—SAHSTR) /SAMINC+1 

TR=IPT*2 

IE=IR*NV*?-1 

WRITF (6* 1600) N0FL0* ARRAY { IPX) *NV*SAMTNCf LINING* 

• CARRAY(I) ,I=IR*IF> 

FORMAT (IX, T?«4X*&4«1 ?X, T2* 1 OX « 12* 6X t I2*5X* 

5( • (»*I4,» , •♦14* *) • *2X)/?C5?X*5( • C»*I4*«* • *14,*) * *2X1/) ) 


C 

C 

C 

C 

C 


c 

c 


c 

c 


POSITION TAPF FOR THIS FIFLD 
CALL FLDTNTCFLDINF.FFTVFCiNOFEAT) 


«**•«*« DEFINF file to 
DEFINE FILF ?s ( 117 , 


BE 117 RECORDS* 
? 400 ♦ U * ID) 


OF 1600 WORDS EACH 


*** RFAO LINES 
NXTDOT = 1 
NXTCLS = 1 


OF DATA FROM UNTVFPSAL FORMAT TAPE AND MOVE TO DISK 


NOVALS * 1 R 6 * NOFFAT 
DO 70 LINE=LINSTR *1 iNENDtLININC 
LINFNO - LINE 


0047 

70 

CONTINUE 


C HRTTE MP«? 5 »GF 

004 A 


WRITF ( 3 1 

0049 

75 

FORMAT {// 


C 


0050 

C 

STOP 

0051 

BOO 

WRITE ( 6 * 

0052 

1400 

FORMAT (• 

0053 


STOP 

0054 


END 


READ LINE FROM UNIVFRSAL FORMAT 
CALL LTNFRD(IDATA,FNnTAP) 
ifcenotap.fo.-dgo TO BOO 

WRITE LINE ON TFMP DISK FILF 

WRITF ( 25 »LINEN 0 ) < IDATA IT ) . 1 = 1 • NOVALS) 


TAPE (ENDTAP = -1 IF LAST LINE) 


TO USER 
7 S> LINFNO 
■ * IMAGE DATA 


EXTRACTED FROM TAPE* LAST LINE = **I 4 i 


FND-OF-TAPF RFACHFD 8 EF 0 PF FND OF FIFLD * 1 


GRRD072O 
GRB00730 
GRB00740 
GRB00750 
GPB0078Q 
GRB00770 
GRB007BO 
GRR00 7**0 
GPBOOHO^ 
GRB00H1D 
GRRQO^?^ 
GRBOOH *0 
6RB00M4** 
GRBOOR'bO 
GRBOOBB" 
GRB00H70 
GRROCBBO 
GRB0O8R0 
GRBOORCO 
GRBOO910 
GPB00R20 
GP400'*30 
GRB00R40 
GRB 003 S 0 
GRBOO*JBO 
GPBO0D7O 
GRBQORft® 
GRBOORRO 
GRROiono 
GRB0KM9 
**GRB010^0 
GRHOIO^O 
GRB01040 
GRB010S0 
GRB01060 
GRB01070 
GRBOIORO 
GRBOlOSt) 
GRB011C0 
GRB01U0 
GRR01120 
GRR01130 
GRB01140 
GRB011S0 
GRB01 1 60 
GRB01170 
GPBOliaO 
GRBOU^O 
GRB01200 
GRBOIP'U 
GRROIjVO 
GRB01230 
GRB01240 
GRBOIP^O 
GRH01?f>0 
GRH0127G 


0002 


—*r 


FORTRAN IV G LEVEL ?! GRRRTAPE RATE = 80157 

ETLF GRRRTAPE PUROUE / LARS 3031 

COMMON FUOCK /INFORM / «AP SI2E 41C 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMROL 

location 

HE*Q 

0 

MAPTAP 

68 

OATAPE 

AC 

PAGST7 

BB 

TAPCHK 

PC 

TRNSYM 

CO 

THOSYM 

cc 

MAXOIV 

no 

HINDI V 

04 

TA°FSV 

FO 

Ell FSV 

TA 

HAXCLS 

F8 

won n? 

F 4 

NOFI.D3 

F 8 

NOTPFD 

FC 

NOFFT4 

10B 

VARSI7 

me 

VAPS72 

110 

NOSPFC 

nc 

mohist 

mo 

NOGPP 

124 

PRTLFV 

13 (y 

YSI7 

114 

XHOH 

13B 

MOFLS3 

144 

PCTS7 

148 

IPLOCK 

14C 

HtSVFC 

2B4 

INVERT 

1?C 

bfstvc 

3 A4 



SUBPROGRAMS CALLED 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

TBrOH# 

oc 

NUMRFP 

FO 

TAPHDR 

F4 

nines* 

FO 

LINFRO 

F4 





EQUIVALENCE DATA 

HAP 

LOCATION 

symbol 

LOCATION 

SYMHOL 

LOCATION 

symbol 

Fl.OTNF 

130 

LINSTR 

118 

LINFND 

13C 

SAwpNf) 

140 

SAMINC 

14C 

LHOLO 

ISO 

KFFP 

16C 






SCALAR MAP 


symrol 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

location 

KH 

170 

KC 

174 

IPLNK4 

178 

N*ICLS 

1 84 

T 

1 °8 

COL 

18C 

NOFLO 

3 98 

TPT 

IOC 

ICK 

1 AO 

NSAMP 

me 

IB 

]pn 

IE 

1B4 

NXTCLS 

ICO 

NOVALS 

1C4 

LINF 

1C8 




ARRAY 



SYMROL 

LOCATION 

SYMBOL 

locatton 

symbol 

LOCATION 

FL 

104 

TOATA 

?04 

ARPAY 

2784 



FORMAT STATFMFNT 

MAP 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

6 

46C4 

9 

46CA 

1600 

470E 


♦OPTIONS IN EFFECT* TO»ERCniC.SOIIRrF^NOLIST,OFCK»NOLOAOtMAP 
•OPTIONS TN FFFFCT* NAMF = GRRRTflPF, LTNFCNT = 75 

♦STATISTICS* SOUPCF STATFHFNTS = 54 tPROGRA u SI7E = 19326 

♦STATISTICS* NO DIAGNOSTICS GENERATED 


14/36/ 19 


PAbF 0003 


SYMBOL 

LOCATION 

SYMBOL 

location 

SAVTAP 

BO 

haxfet 

84 

TSTSYM 

C4 

OUPSYH 

ca 

SPLHAX 

08 

SERIAL 

DC 

NOCLS? 

FC 

MAXFLO 

FO 

N0FF4T 

100 

N0FFT2 

184 

VARS74 

114 

XSI7 

118 

OIVSIa" 

128 

KFFPLV 

12C 

XLOtf 

lie 

SPCBAS 

mo 

FFTVEC 

IC4 

FFTVC2 

?1C 


SYMBOL 

LOCATION 

symbol 

location 

LAREAD 

E8 

FLOINT 

EC 


SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

LININC 

140 

SAHSTR 

144 

IHOLD 

ISC 

LKEFP 

160 


SYMBOL 

LOCATION 

symbol 

LOCATION 

TEND 

17C 

IBLANK 

HO 

KOUNT 

1Q0 

NOFSKP 

194 

NOCROS 

IA4 

NV 

1*8 

ID 

1B8 

NXTDOT 

HC 

LINENO 

ICC 

ENOTAP 

IDO 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 


SYMBOL 

LOCATION 

SYHBOL 

LOCATION 

75 

4751 

1400 

4736 



— 


FORTRAN IV G LFVEL ?1 
FTLF LISTOOT 


OATH « 801S7 
PURDUE / LARS 1011 


PAGE 0001 


PURPOSE: LIST nOT TARLF ORDERED «Y GRID (TABLE Till 


INPUT ***** 


FTLF ON UNIT ?S 

PEC 1*117 RADIANCE VALUES 

(196 X NUHRFP OF CHANNELS 1 

COMMON /LTST/LIST poo,M « WODDTSf NORS. ISHRLSC10) 

COMMON /RUFFE R/MAT4Cl?0n) . LINFNO, KOLUMN 

COMMON /RAOTAN/NOCMAN, TGPFEN .IRRIT. IDQTRD (9R9» 16) 

COMMON /RISC/ NOACO.INSOU (6) , T ACODT (?.6) * AKS) .NMFILE (?) ♦ 

1 SFGM , n ATE (A) * IGkTPR (5) * IC»R*1N(S) * NOPGF S 

COMMON /INFO/ NOTFfft) .NUMLBL. IUDATE (4*10) *LBLOAT (999<t5) *LSTTOT# 

1 NOT^l (4) .NUOATE 

COMMON /VHOATF/KFOATF»KLnATF*NUMACO^MACOOT(?»B) «IACNUMC6) 
••»•*••**•»* OFFINF FILF TO RF 117 PFCORDS OF ?400 WORDS EACH *« 
OEFINF FILE ?Sril7, 2400* IW TO) 

INITIALIZE 

CALL SFTPID 

IF TOO MANY CHANNFLS WRITE MESSAGE ANO CONTINUE 

IF (NOCHAN eGT. 16) WRITF (1.900)’ NOCHAN 
900 FORMAT (IX. II. • = INVALID N1IMRFR OF CHANNELS. CONTINUE.*) 

RFAO LIST OF AI LABELS, LINE NUMBERS. SAMPLES 

CALL PEAOAI 

PFAO DATA TAPF 

CALL RaOWFO 

CALCULATE THF NUHBFk OF REPORTS NFEOFO BASED ON NUMBER OF ACGU 
MAXIMUM OF 6 acouisitton pfr report 

NIJMRFP s NOAC0/6 

IF (MOO (NUMRFP. 6) .NF. 0) NUMRFP=NUMREP*1 

INITI ALI7F NUMBER OF PAGES FOR START OF PFPORT 

NOPGFS s 0 

WRITE RFPORT 

00 100 I=1.NUMRFP 
KFOATF = 6* ( 1*1 ) *1 
WLOATE = KFOATF ♦ S 

- IF (KLDATE *GT* NOACO) KJ.OATF * NOACO 
NUMACO = KLOATF - *FDATF * 1 
CAIL GRIOOP 

mn continue 


LIS00G30 

LISOOOPO 

LIS0001?> 

LISOOOAa 

Lisoonsa 

LISOOG*..* 

i isooma 
Lisontj^r? 
L ISOOONrS 
LIS8CH *0 
LISOOB a 
LISQG2 w 
LISOOS ii 
LISQOS a 5 
LI SO OS iJ 
Lisoni* u 

L ISO- 1^3 
l.TS00I**9 
LISQQJ9 3 
LTSOO/bO 
L IS90/1 V 
I.TSOOP/CI 
LISOOP^J 
!. ISOS/43 
L ISOO/Stj 
LISG0/-9 
LISOOP751 
L IS0GP*iO 
LiS00?‘/O 
L ISQO 100 
LINGS (10 
LTSOOI/W 

linos no 

LTS00»40 
LTS<>m-9 
LISsm 
LISOO no 
LISGQ-HO 
1 ISCO 1^0 
LISQO*CO 
LIS0G42O 
l ISOO*.P»? 

L isockto 
ltsoiuao 

LISOO4S0 
LISOHA^O 
LIS00470 
LISU04* 0 
LISOOaRO 
LISOOHllO 
LTSOOSIO 
LISOOS/O 
Lisoosn 
LISOOS^O 
LISOOS‘>C! 
LISOOS60 
LIS00S7O 
I ISOOS^O 
LISOOSOO 
LIS00600 
LISOO^IO 
LIS006^0 
LISOGS *0 
LISOO640 
LIS0G6S0 
LTS006' > 
1 ISO Of* * 5 
L ISOO'#* 3 


.yi 

s? 


F RPTPAN TV R LFVFL 21 


LISTOOT 


DATE = B01V7 


FTtF USTOOT 


PtiROUF / LARS 3011 


/LIST / MAP SI7F 4F8C 
SYMROI. LOCATION 

NOCLS 4F10 


COMMON R| OCK /RIIFFFR / MAP SI7F 3708 
SYMHOl LOCATION SYMBOL LOCATION 

LTNFNO T?00 KOMIMN 3204 


common nock /paotan / map si?f f*cc 

SYMBOL lOCATlON SYMBOL LOCATION 

IRPFFN 4 IBRIT 8 


COMMON OlOCK /MISC / MAP SI7F A8 

SYMBOL LOCATION SY“S0L LOCATION 

LNSOIL 4 IACOOT IC 

OATF SC IRPIOR 7C 


COMMON Ml OCK /INFO / MAP SI7F AFf R 
SYMBOL LOCATION SYMROL LOCATION 

N»»M| BL PO TUOATF ?4 

NUOATF 4FF4 


COMMON P| OCX /WHOATF / map SIZF S4 

.symbol LOCATION SYMBOL location 

KLOATF 4 NIIM4C0 8 


SUBPROGRAMS CALLFO 

SYMBOL LOCATION SYMBOL LOCATION 

SFTP10 Cfl IHCOMA CC 


SYMBOL 

ITST 

LOCATION 

ft 

SYMBOL 

TfUTA 

LOCATION 

0 

symbol 

NOCHAN 

LOCATION 

0 

symbol 

NO A CO 
CFRM 

LOCATION 

a 

6B 

SYMBOL 

notc 

NOTFt 

location 

0 

4E04 

SYMBOL 

KFDATc 

location 

ft 

SYMBOL 

mors* 

nRTnnp 

location 

C4 

OB 

SYMBOL 

TO 

LOCATION 

FA 

SYMBOL 

LOCATION 


POO FO 


COMMON RIOCK 
SYMMOl | OCATION 

nooots *foc 


SCALAR MAP 
SYMBOL LOCATION 
NUMPFP F8 


SYMBOL LOCATION 
l FC 


FORMAT STATFMFNT HAP 

SYMBOL LOCATION SYMBOL LOCATION 


•OPTIONS IN FFFFCT* TO.EBCOIC.SOURCF.NOL 1ST «OFCK«NOLOAO*MAP 
•OPTIONS IN FFFFCT* NAMF = LISTDOT . LINFCNT = 7S_ 

•STATISTICS* SOURCF STATFMFNTS = ?4 « PROGRAM SI7E * 740 

•STATISTICS* NO DIAGNOSTICS GFNFRATFD 


14/56/3? 


PAGF non? 


SYMBOL LOCATION SYMBOL LOCATION 

ISMBLS 4E14 

SYMBOL LOCATION SYMBOL 8 ©CATION 


SYMBOL 

I00TRD 

L«f AT ION 

C 

SYMBOL 

uicatic*! 

SYMBOL 

AI 

IORION 

LOCATION 

4C 

00 

SYMBOL 

NMFILE 

NOPOES 

1.0CATIGN 

60 

A4 

SYMBOL 

LHLOAT 

CONATION 

C4 

SYMBOL 

LSTTOT 

$ icatign 

4f )C 

SYMBOL 

nacoot 

LOCATION 

SYMBOL 

IACNfJM 

LOCATION 

3C 

SYMBOL 

«FA0Al 

location 

no 

SYMBOL 

HAkJBEii 

IDEATION 

i»4 

SYMBOL 

LOCATION 

SYMBOL 

I ©CAT ION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 





************* am irimiiitii i Mm * 


FORTRAN IV 
FILF LISiOOT 
nnni 


non? 

nnm 

non* 


ooos 


0006 


0007 


nonft 

nooo 


nnm 

non 

oni? 

non 

nou 

oois 


0016 

0017 


nni a 


ooiq 


nn?o 

no?i 

no?? 

no?3 


no?4 

nn?s 

no ?6 


nn ^7 


LFVFL ?1 GPinoP 

PUPnuF 

supporting r,i*inOP 

PURPOSE: wRJTFS HOT TABLE FOP ALL GRIDS 


OATF = 80157 
/ LARS 3031 


14/56/3? 


PAGF 0001 


c 

c 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

r 

c 


c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 


r 

c 

c 


COMMON /l IST/l 1ST CORPUS) * NODOTS* NOCLS* ISHRLS(IO) 

COMMON /RDFFFP/IOATA C3?00) « LINFNO, KQLUMfl 

COMMON /RAOIAN/NQCHaM* IGPF^N *IRRIT* IOOTRD (999* 16) 

DATA TS SCPTFO IN frlTOR IN PRINTOUT flS»DF3 RATHER THAN 
CHANNFL NUHRFP ORDE** 

COMMON /MISC/ NO ACO*LNSOIt C6) * I ACQDT (?*6) * Al (51 *NHFILFt?I * 

1 SF0M,0ATF<4) ,TGRTORCS) • IGRION(S) »NOPfiFS 

COMMON /INFO/ NOTF CM) *NtJHLRL . IUOATF (4*1 01 *LHLHaT C999<.5) *LSTTOT* 
1 NOTFI (^) .NUOATF 


DATA IRLNKS/* 
INITIALI7F 


«/ 


MOPGFS = 
ITOTM = 


WRITE RFPORT MY GRID NUMBER 

iS 


GO TO 800 
CALI. HFOIII 


no poo I T— l 
TGPIO = IT 
TFIOST = IGRIOR(TI) 
TLAST = IGRIONCll) 
TF (TFIPST .FO* O) 
IF (NOPGFS «FQ, It) 

WRITE TITLE FOR GR*n 

CALL TTTLOT ( I GRIN) 
NIJMLTN = II 

WRITE CURRENT GRin 


OO 700 JJ=IFIRSTrTt AST 
WRTTF A LtNF TF SAHPLF IS NOT 7FR0 
TF (L«LOAT CJJ.?) .FO. 0) GO TO 700 
HAVF nATA 

IF FIRST GRID* CAt UL ATE HOT NtJMRFR 


THOOT = I Ml NKS 
TF CIGRIO *F0* 1) 
TTOTAL = ITOTA! ♦ 
NUMLIN = NUMLIN ♦ 


CALL CALOOT (LRLDAT tLBLOAT ( JJ»3) * IMOOTI 

1 
1 


IF PAGF TS COmPlETFO GO TO NEXT PAGE 

TF (NUMLIN *LF* 70) GO TO 100 
CALL TTTLOT (IGRIO) 

NUMLIN = 6 

100 GO TO (lin,l30*lSO*170*190*?10*?10.210) * NOACQ 
1 ACQUISITION 


LIS006O3 
LIS007CG 
LISO07IU 
LIS00??0 
LIS007 If* 
LISOO740 
LIS007-U 
l ISQG?* 0 
iisonrih 
LISOO?- ; 
LTS0G7V - 
LKOOmS-j 
LISQOHlvj 
LISOO^V ; 
l ISOOP 3 3 
IIS00H<* j 
t I50G8‘ j 
L ISOOP* J 
LIS 00%?'' 
LIS008«u 
LISOOM^r. 
LIS0090 a 
LISOCOlu 
LISOG«#?rf 
LISOGOIG 
LIS0G94 a 
LISQ ON 6 - N 
LIS0CW. j 
i IS009?u 
LISOCR^C 
LIS 009-#f» 
LIS01006 

l iso i n 3 
LISOlliP ? 
LISOIO^J 
LISO1O40 
LIS010V) 
LTS0K60 
LISOIOTO 
LIS01G8G 
LIS0109G 
LIS01ICG 
LIS01I10 
LISCiiS/O 
I ISO! 1 30 
LI SOI 140 
I IS01I40 
LI SO 1149 
l I SOI 1 TO 
LIS011S0 
tISOlIRO 
LISOIPOO 
LlSOlPiG 
LIS01P20 
I ISO 1? 30 
LIS01P49 
LlSOlPSti 
LISD1P6Q 
LIS01?7Cf 
LISOIPMC} 
LIS01?40 

LIS01399 

LIS013IG 

LIS013/0 

LIS0133O 

LIS0134Q 

LIS013SO 

t 1591^4 

t ISO I 3/t ? 

LIS01V«« 

1 ISGI 3 W 




iiinttiriniiMti fil 


ii«#i i i* * u mmtm 


FOQ TRAN tv 

ni f tlSTHOT 

nn^ft 

oo?9 

omo 

noil 

ool? 

noil 

0014 

0015 

0016 

0017 

0010 

0019 

0040 

0041 
004? 

0041 

0044 

0045 

0046 

0047 
0040 

0049 

0050 


ifvfi 21 


PaTE * On 1ST 14/S6/1? 


RUPQUE / LARS 3011 


C 


r 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


110 WRTTF 16*900) THOQT ♦ IPLnAT 1 JJ*?) *LBLDAT ( JJ*1) *LPLOAt CJJ*1) * 
l iipotroijj*io) *iq=i*nochan) 

900 TOPMftT 141X*A4*4**?1*?X*X1*7X*42*1X*1 (SX*I3*?X*I3)) 

GO TO 700 

? ACQUISITIONS 


110 WRTTF 16*910) INPUT *1 «LOAT CJJ*?) *LBLOAT i JJ*1) *LBLOAT WJf!) * 
1 1 IDOTQf) 1 JJ* ID) *10=1 * NOCHAN) 

910 FORMAT 11RX*A4*4X*TT*?X* I1*7X*A?*1X*?1SX*I1*?X*I3) 1 
GO TO 700 


3 ACQUISITIONS 


ISO WRTTF 16*9?0) IMOGT.LRLOAT 1JJ*?) *LBl DAT <JJ*3) *L R LD4T CJJ*1I * 
I iin0TP01JJ*I0) *m=:l , NOCHAN) 

9?0 FOPMAT tl3t*A4*4X*TT*2X*Tl*7X;A2*lX*3CSX*I3*?X*X3) 1 
GO TO 700 


4 ACQUISITIONS 


170 WQITF C6*9?S) IMOQT^LPtHATf JJ*?I *LPLDAT 1JJ*1) *LRLOAT CJJ*1) * 
1 lIOnTRQMJ*ID) *IU=1 *NOCHAN) 

9?S FORMAT {?3X*A4,4X*Tl*2X*I3,?X*A?*lX*41SX*I3*?X*I3)i 
GO TO 700 

S ACQUISITIONS 

190 WRTTF 16*930) TMDOT*LRLDAT(JJ*P> *LRLDAT ( JJ*3) *LBLOAT ( JJ* 1) * 
1 1 TD0TR1) 1 JJ* JO) * II)=T *NOCHAN) 

910 FORMAT (lRxiA4*4X* Tl*?X*l3*7X*A?*lXtS(SXcIl*2X.l3) I 

m rn iaa 


GO TO TOO 
6 ACQUISITIONS 


210 WRTTF (6*940) IMOOT* LBLOAT ( JJ*?) *LRLOAT ( JJ* 1) *LRLDA? (JJ* 1) * 
u I00TP01JJ* in) »in=ri .nochan) 

940 FQPMaT 111X*A4*4X* T1*?X *I1*7X*A?* 1X*6 (SX* 1 3*?X* ID )t 


700 CONTTNUF 


BOO CONTINUE 


WRTTF C 3*9S0) TTOTAL 
9S0 FOPNAT ( 1H) * •RFP09T COMPLFTFO. 
RETURN 
ENO 


LISTED * *14* 1 LTNESo •) 


LIS01400 

LIS014I0 

LlS014?f) 

LIS0I410 

LIS0144O 

LIS014S0 

LIS0146Q 

l IS01470 

LIS014R0 

L ISO I 49 i 

LISOlSOj 

LISOIM * 

LfSOlS?ti 

L ISO 1*1 J 

L ISO 1*40 

LIS01SSG 

LTS0IS6J 

LIS01H7U 

LlSOlnH^ 

LISOIW 

LIS0165J9 

LIS0I610 

LIS016^ 

LIS0161 s 

LIS0I6AJ 

LIS016 ^cj 

LISQ16* • 

LIS0167G 

LISOl^ 

LIS016 0 

LIS017GI) 

L1S01710 

LISOU^I 

LTS01M6 

LIS0I740 

Ll*oi7*a 

LTS0I760 

LIS01770 

LIS017R0 

LIS0179? 
LiSQIRGv 
LIS01610 
LlSOWt* 
LIS01R < l 
l IS01640 
LISOlHSu 
LlSOl^s J 
LIS01P70 
LISOIR^O 
LlSOlHNia 
LIS0190Q 
LIS01910 


?AGF 8092 


FORTRAN IV G LEVEL ?I 


GPIDOP 


DATE = 801S7 


FTLP LISTDOT 


PUR DOE / LARS 3031 


SYMBOL 
l 1ST 

LOCATION 

0 

SYMROL 

NOOOTS 

SYMBOL 

IDATA 

LOCATION 

0 

SYMBOL 

ltnfno 

SYMROL 

NOrHAN 

LOCATION 

0 

( 

SYMBOL 

tgrfen 

symbol 

NO«CO 

SFGM 

LOCATION 

0 

6ft 

1 

SYMBOL 

LNSOIL 

DATE 

symbol 

NOTF 

NOTF1 

LOCATION 

0 

4E04 

\ 

SYMBOL 

MIIMLBL 

NUDATF 

SYMBOL 

HFOTTI 

LOCATION 

12C 

SYMBOL 

TITLDT 

SYMBOL 
TRLNKS 
TL AST 

LOCATION 

ISO 

1*4 

SYMBOL 
I TOTAL 
numlin 

SYMROL 

POO 

Q40 

LOCATION 

17ft 

213 

1 

SYMBOL 

910 

950 


COMMON «I OCK /list / MAP SIZE 4F8C 
LOCATION SYMBOL LOCATION 

AFnr NOCLS 4F10 


COMMON BIOCK /POFFFR / HAP SIZE 3?08 
LOCATION SYMBOL LOCATION 

3?nn KOIUKN 320* 


COMMON HI OCK /PAOIAN / MAP SIZF F9CC 
location SYMBOL location 

4 IRMIT 8 


COMMON RIOCK /MISC / HAP SIZE 

LOCATION SYMBOL LOCATION 

4 I A COOT 1C 

6C IGPTDB 7C 


COMMON BLOCK /INFO / HAP SIZF 4FF8 
LOCATION SYMBOL LOCATION 

IUDATE 24 

4FF4 


SUBPROGRAMS CALLFO 

LOCATION SYMBOL 

ISO CALOOT 


SCALAR MAP 

LOCATION 

IS4 

I 168 


SYMBOL 

II 

JJ 


FORMAT STATFHFNT HAP 


LOCATION 

IP? 

?S2 


SYMROL 

920 


LOCATION 

134 


LOCATION 

1SR 

1*C 


LOCATION 

1B6 


♦OPTIONS IN FFFFC T* lO*F9CniC.SOURCFoNnLTST%DFCK*NOLOAn*MAP 
•OPTIONS TN FFFFCT* NAPE = GRIOOP . LINFCNT = 7S 

•STATISTICS* SOURCE STATEMENTS = SOoPHGGRAH SIZF = 

•STATISTICS* NO DIAGNOSTICS GFnEPATFO 



14/56/32 


PAGE 0003 


SYMBOL 

ISMBLS 

LOCATION 

4FI4 

SYMBOL 

location 

SYMBOL 

LOCATION 

SYMBOL 

location 

SYMBOL 

IDOTRD 

LOCATION 

C 

SYMBOL 

iocation 

SYMBOL 

AI 

IGRION 

LOCATION 

<C 

90 

SYMBOL 

NHFILE 

NOPGES 

LOCATION 

60 

A* 

SYMBOL 

LBLDAT 

LOCATION 

C4 

SYMBOL 

LSTTOT 

LOCATION 

AEOO 

SYMBOL 

IBCOM* 

LOCATION 

138 

SYMBOL 

IOCATION 

SYMBOL 

TGRIO 

IMOOT 

LOCATION 

ISC 

170 

10 

LOCATION 

160 

IT* 

SYMBOL 

925 

LOCATION 

IDS 

SYMBOL 

930 

location 

IE* 


M 








\mm* 






rfcfoittfc 




FORTRAN IV 0 LEVEL 

21 

HEHIII 

DATE * R0157 

14/56/32 

FILP LISinOT 



PIIRDUF 

/ LARS .1031 


nooi 


SUBROUTINE HFOIII 



LIS01P20 

c 





LIS01930 

c 

PIJPPOSF: WRTTF RFPOPT 

HFADING 


LIS01Q&0 

c 





LlSOl^O 

non? 


WRTTP (6.100J 



LIS01P60 

nooi 

100 

FORMAT (lHlvfiOX* ■ TAPLE TTI*»//.57X. 

•ORDERED BY GRIO*.///> 

LIS01Q70 

0004 

RETURN 



LTSOIPOO 

ooos 


FND 



LISOl^PO 


PA6F 0001 




\ ■ - 


„rv> 

*v 0 ‘ 

«V " 


v> 


*v 


FORTRAN IV (i LFVFL 
FTLF LTSTOOT 

21 . HFOIII DATE = 80157 

PURfX«E / LARS 3031 


14/56/32 

SYMRm. 

TRfOM* 

LOCATION 

oo 

SUBPROGRAMS CALLFO 

SYMBOL LOCATION SYMBOL LOCATION 

SYMBOL 

LOCATION 

symbol 

mo 

LOCATION 

94 

FORMAT STaTFHFNT MAC 

SYMBOL LOCATION SYMBOL LOCATION 

SYMBOL 

LOCATION 


•opt ton! In ffffct* 

*5T*TI|TICS* SOURCE STATFMFNTS= *-lNECNT - 7S _ 

•‘’TATISTICS* NO niAGWOSTICS GFNF-’ATFfJ * J ' * SI7E ~ 


316 - 


°AG£ 


SYMBOL 


SYMBOL 


non? 

location 

LOCATION 








MM iifl'i 1 1 *<i ii » 






FORTRAN IV G LEVEL ?1 


TITLOT DATE * 60157 14/56/3? 


FTLF LISTOOT 


PURDUE / LARS 3031 


noni 


noo? 

0003 * 

0004 

0005 


0006 


0007 

noon 

ooor 


0010 

0011 

001 ? 

0013 

0014 

0015 


0016 

0017 


0018 
001 R 
00?0 
no?i 
00?? 


no?3 


no?4 

no?5 

00?6 

O0?7 

no?R 


00?R 

0030 

0031 
003? 

0033 


0034 

0035 

0036 


C 

c 

c 

c 

c 

c 

r 

c 

c 


c- 

c 

c 


c 


c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


t 

c 

c 


c 

c 

r 


5UPR0UTINF TITLOTCTORID) 

P!fRP05F: WRITF TTTLF FOR DOT REPORT 


COMMON /LIST/LT5T (RQR*5) * NODOTS* NOCLS* ISH8LSI30) 

COMMON /BUFFFR/fnATA<3?0n) * LINFNO, *0LUMN 

COMMON /PADI AN/NOCHAN* I GREEN *IBRIT* TGOTRD (RRR* 161 


Common /mtsc/ noaco,lnsoil ( 6i * tacqot c?*6) *ai csi *nhfilf (2) • 

1 'SFGM,OATE(4) vIGRI^RCS) • IGPI0M151 *NOPGFS 


COMMON /INFO/ MOTF(R) ,NIJMLBL* IUOATF (4* 1 0) * LPLDAT (R99 1>5) iLSTTOT* 
1 NOTF1 (41 *NUOATF 

OAT A TRUNKS/* */ 

DATA TFPSTl/«nOT*/ 

DATA TFRST?/»NO*«/ 

WRITE SFG, RATE GFNEPATEn AS PART OF PAGE ON FIRST PAGE ONLY 

TF (NOPGFS .NF. 0) GO TO 10 
VRTTF (6*RO0) SEGM.QATF 

ROD FORMAT (1X**SFGMFNT = « , A4*21X* *DATE 6FNERATED = t*4A4*//> 

GO TO 30 


10 WRTTF 
RO] FORMAT 


(6*901) CFGM,nATF 
CIH1*»SFF*FNT = 


fl *A4*21X, *OATE GENERATE" = »*4A4*//1 


VRTTF GRID NUMBER 


30 WRTTF (6*R0?) TG^T" 

90? FOPMAT m*6?X**GRT0 **T1) 


• TFWPOl = TRUNK 
TFWRO? = TRLNK 
TF CTGQTO • MF • 1) GO TO 40 
TFWROl = IFPST1 
TFWRO? = IFRST? 

WPTTE TITLES DEPENDING ON NUHPER OF ACQUISITIONS 
40 GO TO {100,?n0*3no*400*500*600.600*600)f NOACQ 


1 ACQUISITION 

100 WRITF 26*110) 1FUR01 • ( (I ACODT ( I * J) * 1 = 1 *2) ♦ J=1 *N0ACQ5 
110 FORMAT (/*44X*A1*3X, •LINF/« *8X« * ANALYST* *3X* * ACOl **A4.A1) 
WRTTP (6, IPO) IF^onp _ 

120 FOPMAT (44X*A3*0^*«PIXFi »*4X*»l AREL**6X*»G R«*//) 

GO TO aoo 


? ACQUISITIONS 

?nn WRITF ( 6 • ? 1 0 ) IF/Rn:, ((TACOnT(IfJ) *1=1*2) *J=1*NOACO) 

?10 FORMAT { / , 3RX » A3, 3X , * LJNF/« ,ftX * * ANALYST 1 * 3X* * ACOl «*44,A1*3X* 
1 « ACO? • • 44, A 1 ) 

WRTTF <6*??0) TF-pnp 

??0 FORMAT (3RX,a 3*MX, »PIXFL • *4X» t| aRFL* *6X* *G R«* 

1 7X * * G ft* *//) 

GO TO R00 


3 ACQUISITIONS 


00 WRTTF (6,310) lF-Rni*((IACor)TU,J)*I = l*2)*J=l*NilACU) „ _ 

] o FORMAT (/»34X„A3*3X, tLINF/« *PX, • ANALYST * *3X* *Ar.n « * A4*A1«3X* 
1*ACQ? « , A4, A1 ,3X* t AC03 ••A4*Al) 


WRTTF (6*3?0) TFvt?n? 


LIS02000 
LISOPOIO 
LIS020P0 
LIS0203Q 
LIS0P040 
LIS020HO 
LIS0P060 
LIS0PO70 
Liso?o> n 
LISO? EE) 
LlS0?2 r y 
LI S0?3 5 6 
LIS0?)/0 
LIS0P133 
LI SO? 14-0 
LIS0?1S'| 
LTSO?1*0 
LIS0217O 
LIS0?!^O 
LIS021R0 
LIS02200 
L IS0??1 Q 
LISO??? 2 
LISO??*'* 
LlS0??*S 
LIS0?? c i 
L ISO?? VI 
LIS0??7Q 
LIS02/PQ 
LIS0??i»7 
LISO? *60 
LIS0?310 
LISO? I/O 
LISO2310 
LISO? 140 
LIS0P3S0 
LISO? 1*0 
LISO? 170 
LIS3?!«0 
LISO? 1VG 

LIS024T fj 

L 15024! {) 

LIS0?4?O 

LIS0?4 

LIS0244d 

LIS02450 

LIS024S0 

LISO 24 

LTS02460 

LIS0?49(| 

LIS02S0O 

LISO?610 

L IS9?S?0 

L TS0?H 10 

LIS0?5**O 

LTS02SSO 

LIS02560 

LIS0?S7O 

LIS02 c Ht) 

LIS02SRO 
LIS02600 
LIS02610 
LIS0?6?Q 
LIS0?6 III 
LrS02f 40 
LISfl?f so 
I.ISO?# * n 
LISO?# /'I 
L!Sfr?v-0 
L 150?#* *0 
LISO27O0 


PAGE 0001 


MiMMUi L jm 


FORTRAN IV G 
FYLF LTSTOOT 
0037 
003R 


flO^ 

0040 

0041 

0042 

0043 


0044 

004*5 


004ft 

0047 

004B 


004Q 

0050 


0051 

0052 


0053 

0054 

0055 


■ mifcaittlhi 










LFVEL 21 


TITLOT DATE = *0157 

PURDUE / LARS 3031 


14/56/32 


PAGE 0002 


C 

C 

C 


C 

C 

C 


320 FORMAT (34X* 43**X* *PXXFL* * 4X* *LABEL* * 6X* *G R»* 

17X*»G B«»7X,*G B*,//) 

GO TO R00 

4 ACQUISITIONS 

400 WftTTF (ft*410) TF^»m,(nACODT(T,J) *1 = 1,2), J=l,M04CO) 

410 FOPHAT (/%24X,A3,3X t *LTNF/**fiX. »ANALY5T > «3X.*AC01 **A4 cA1*3X* 
?*AC02 * ♦ A4, A 1 *3X , • A CO 3 1 • * A4 , 41 * 3X* » ACR4 **44*41) 

WRTTF (6,420) TFwpn? 

4?0 FORM&T (24X,A3*RX, *P)XFL » ,4X* *L ARFL* *ftX* *G 5*, 

17X,*G R**7X,»G R t « 7X , • G ft*,//) 

GO TO GOO 


c 

.c 

c 


5 ACQUISITIONS 

500 WRITE (6*510) TF *R01 , ( ( 1 4CQDT ( 1 1 J) * 1 = 1 * 2) * J=1 * NOACQ) 

510 FORMAT (/* IPX* 43* IX , «LINF/ *• *X , ■ ANALYST • *3X • 4C01 »*A4,A1*3X, 
liACQ? * *44, A1 *3Y * * ACQ3 * . A4 *A ! ,3X* * AC04 »,A4*Al*3X* 

2*AC05 * * 44 ,41) 
wrtTF (6*npo) iFwwn? 

520 FORM&T ClRX,A3*RX,*PIXFL t •4X**LAREL*,6X*«G R»* 

1 7X, • G B*,7X,*G R«*7X*»G B*«7X**G S»*//) 

GO TO Q00 


C 

C 

C 


ft ACQUISITIONS 

600 WRTTF (6*610) IFWRni , ( (XACODT (I * J) *1 = 1 ,2) * J=1 *NQACQ) 

610 FORMAT {/*14X*A3* 3X « »LTNF/ • *RX * * ANALYST ? , 3X * 8 ACQ1 «*A4*Al*3X* 
1*ACOP * * A4 «A1 *3X, * AC03 • • A4 * Al * 37 * » ACQ4 »*A4*Al*3X* 

? * ACQS * ,A4*A1 *3X, *AC06 **44*A1> 

WRTTF (6*620) IFWpnp 

620 FORMAT U4X,ft3*ftX* •PTXFi * *4X* «LAREL * * 6X * «G R»* 

17X,*G R*,7X,*G R**7X f *G R**7X,*G 8»* 

27 X**G R* *//) 


FINJSHFO YITLF 

*00 NOPGFS = NOPGFS 
RETURN 
END 


LIS02710 
L1S027/0 
LI50 ? 7 it) 
LIS0274 0 
LTS02750 
LIS027*0 
LISO2770 
LIS027P0 
LIS027R0 
Liso?s^a 
LTS02P10 
LISOPPPO 
LISOP* 10 
LIS02H4) 
LIS0?H5a 
LIS0?«^0 
LIS02R70 
LIS02RP0 
LIS02RQO 
LIS02RO0 
LISG2R10 
LIS02920 
LIS02R10 
LIS02R4O 
LIS0?Q*fJ 
LIS02VFQ 
L IS0?R7|) 
LTS029H0 
LTSOP^DO 
LI503000 
L 15030 1 0 
LIS03020 
LI5G3010 
LTS03040 
LIS03050 
LIS03060 
LIS03070 
LIS030PO 
LTS030O0 

Lisouon 

LIS03110 


TITLOT 


DATE * 8niS7 


FOPTPAN TV G LEVEL 21 
FTLF LISTOOT 


PllPOUE / LAPS 3031 


SYMBOL 



COMMON R! OCK 

/LIST / MAP 

SIZE 

LOCATION 

SYMBOL 

location 

SYMROL 

LOCATION 

t 1ST 

0 

nooots 

4F0C 

NOCLS 

4E10 

* 



COMMON Bl orK 

/BUFFFP / MAP 

SIZE 

SYMBOL 

LOCATION 

SYMROL 

LOCATION 

SYMROL 

LOCATION 

TOATA 

0 

LTNENO 

3200 

COLUMN 

3204 



COMRDN SIOCK 

/DAOIAM / MAP 

snE 

SYMROL 

LOCATION 

SYMROL 

LOCATION 

SYMROL 

LOCATION 

NOCHAN 

0 

TGPFFN 

4 

IBP IT 

ft 

SYMROL 


COMMON HI OCK 

/M ISC / MAP 

SIZE 

LOCATION 

SYMROL 

LOCATION 

SYMBOL 

LOCATION 

NOACO 

0 

LNSOIL 

4 

T4CQDT 

1C 

SFGM 

6ft 

OATF 

SC 

IGPIDB 

7C 



COHHON P! OCK 

/INFO / HAP 

SIZE 

SYMROL 

LOCATION 

SYMROL 

LOCATION 

SYMBOL 

LOCATION 

NOTF 

0 

nwmlrl 

Pi) 

IUnATE 

24 

NOTF1 

4E04 

NUOATF 

4FF4 



LOCATION 

subprograms callfo 


SYMROL 

SYMROL 

LOCATION 

SYHROL 

LOCATION 

TPrOH# 

13ft 





SCALAR MAD 



SYMROL 

LOCATION 

SYMROL 

LOCATION 

SYMBOL 

LOCATION 

Tftl HK S 

nr 

IF RST1 

140 

IFMST2 

144 

TPLNK 

15n 

TFWRD? 

n4 

T 

15ft 



format statehfnt «ap 

* 

SYMROL 

LOCATION 

SYMROL 

LOCATION 

SYMBOL 

LOCATION 

sno 

160 

001 

1 BO 

002 

Irm 

210 

216 

220 

P 4R 

110 

27P 

420 

341 

S10 

1«S 

s?o 

3E1 


4FBC 

l?0ft 

F9CC 

Aft 

4FF8 


•OPTIONS IN FFFFCT* ID.FRCDTC.Smurr.Nm. TST.DFCK.NOLOAn,HAP 
•OPTIONS IN FFFFCT* NAMF = TTTLOT , LINFCNT = 7S 

•STATISTICS* SOURCE STa.TF*FNTS = 55, PROGRAM SIZE = 

•STATISTICS* NO DIAGNOSTICS GENE°fiTFD 


?600 



14/56/32 


PAGF 0003 


symbol 

TSMBLS 

LOCATION 

4FI4 

SYMBOL 

LOCATION 

SYMBOL 

LOCATTON 

SYMBOL 

LOCATION 

SYMBOL 

I00TP0 

LOCATION 

r 

SYMBOL 

LOCATION 

SYMBOL 
A I 

IGPIDN 

LOCATION 

4C 

SO 

SYMBOL 
NHF ILF 
NQP6ES 

LOCATION 

60 

A4 

SYMBOL 

LBLOAT 

LOCATION 

C4 

symbol 

LSTTOT 

LOCATION 

4EO0 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

1GRIO 

J 

LOCATION 

14ft 

ISC 

SYMBOL 

IFVBOl 

location 

I*C 

SYMBOL 

110 

320 

610 

LOCATION 

1CA 

?OR 

4?D 

SYMBOL 

120 

41^ 

620 

LOCATION 
1F2 
2F 3 
4V& 


r*K«» 








FORTRAN IV 

G LFVFL 21 PADREO DATE = B015T 14/56/32 

FTL^ LISTOOT 


PURDUE / LARS 3031 


onoi 


SUBROUTINE R4DRFD 

LIS031?0 


c 


LIS03I30 

. 

c 

PURPOSE: READ RADIANCE VALUES EOR SFLECTEO PIXELS 

115031*0 


c 


LIS031S0 

noo? 


COMMON /LIST/ LIST (Q99.5) * NODOTS* NOCLS, ISMHLS(30) 

LTS031*0 


c 


LIS03170 

0003 


COHMON /INFO/NOTFCB) ,NI)MLRL. TIH1ATE (4, I 0) .LBLDAT (999,S) .LSTTOT 

LIS0315O 



1 .M1TF1 (4) .NUDATF 

LTS0316I3 


c 


LIS03?09 

0004 


COMMON/MTSC/NOeCO.I NSOTI C6) ,IACQDT{2,G) ,AI (S) *NMFTLF{2) *SEGM» 

LIS03? i O 



1 DATF{4) . IGPTQRCS) .IGRinNCS) .NOPGFS 

i 1503 ?/ a 

0005 


rOMMON/RlIEEFR/TDATA < ipnni .linfnq.koluhn 

LIS03 :>««» 


c 


LIS03Pai?| 


c 


LIS01 ?" j 

0006 


COMMON/RAD T AU/NOCH AN * TGRFFN , IPRIT* TDOTRD (999. 161 

LI503?' ti 


c 


LISO3//0 


c 


LI5G 

0007 


DIMENSION IDTNOXfl?) 

LIS03?'<0 


c 


LI 50 3 100 

0000 


nATA TOTNOX/2,1 ,*.3.6,S,P,7,10,9.12,11/ 

LIS03 UO 


c 

SFT LAST LINE TO PF (1 

LI503I?fl 

0009 


LSTINF = 0 

L IS03 1 rl 


c 


LI503 


c 

SFT LTNF SI7F TO PF 196 PTXFLS * NIJMRFR OF CHANNELS 

LIS03 35f* 

onto 


LINF57 = 196 * NOCPAN 

LI503 V 9 


c 


LI503370 


c 

REAP LINES OF VALUFS SOR EACH PIXFL AND SAVE RADIANCE VALUES 

LI503 H* cl 

0011 


no ionn r = i.wooots 

LI5033 a '3 

001? 


l TNFNO = LPLOATfT.Pl 

LTS03400 

0013 


KOLUHN = LRLOAJ (T ,3} 

LIS03410 

0014 


IF (LTHFNO .FO. LSTLNF) GO TO 100 

L 15034/* 0 

0015 


IF (1 INFNO .FO. 0) SO TO 1000 

LT50J4 BO 


c 


LTS034*4t? 


c 

NFW LINE, PE AO 1 INF OF OATA 

LI5O3450 

0016 


READ (?S*LTNFN0) (TDATA(J) ,J=1 .LINES?) 

LIS03*'0 

0017 


LSTLNF = LTNFNO 

LISO3470 


c . 


LISQ340G 


c 

MOVE DATA TO JDOTBD 

LtS034«#0 

001 R 

100 TNDEX * KOLIIMN 

LIS03S4Q 

00} 9 


OO 200 L = 1. NOCPAN 

LI503510 

00?0 


LL = L 

LI5035?0 

00?1 


NOEX = LL/2 

LI5035^0 

00?? 


IF (HOO (L *2) .FO. 0) IOATA(INOFX) = ID AT A C INOE X 1 -LNSOIL (NOEX ) 

L 150,3540 


C 


L ISO 3550 


c 

STORF VALUES OF GPEFN NUMBFR AND BRIGHTNESS INTO OOTRD IN 

LIS03550 


c 

THF OROER OF THF PRINTOUT RATHER THAN IN CHANNFL NUMBER ORDFR 

LI503S70 


c 


LI5035*G 


c 

IDTNDX COONTAINS THF CHANNFLS IN THE ORDER OF OUTPUT 

LI5035 <3 0 


c 


L 1503500 

00?3 


TNOEX1 = TOTNDX (1 ) 

LI5O35I0 

00?4 


T OOTRD ( I , INDFX1 1 = I DAT I (INDEX! 

LIS035?0 

00?5 

?0f) 

1 INDEX = INDEX ♦ 196 

LISG3*>30 


c 


LI503640 


c 


L 1503550 

O0?6 

1000 CONTINUE 

L 150 3650 

00?7 


RETURN 

LIS0367G 

oo?a 


END 

LI5036 ft 0 


FORTRAN IV R LFVFL 21 


RAORFO 


RATE a B0IS7 


FTLF tlRTflOT 


PURDUE / LARS 3011 



SYMROL 

LIST 

LOCATION 

0 

SYMBOL 

NODGTS 


SYMBOL 
NOT F 
N OT^l 

LOCATION 

n 

4E04 

i 

SYMROL 

NUHLRL 

NUDATF 


SYMBOL 

no*co 

SFGM 

location 

n 

6B 

) 

SYMROL 

LNROTL 

OATF 


SYMROL 

T04TA 

LOCATION 

0 

i 

SYMBOL 

LINFNO 

r* 

SYMROL 

NOrHAN 

LOCATION 

0 

i 

SYMBOL 

TOPFEN 


SYMBOL 

TRroM# 

LOCATION 

DO 

SYMROL 


* ymbol 

LSTLNF 

L 

LOCATION 

E4 

FR 

SYMROL 

LINES? 

LL 


SYMROL 

TOTNDX 

LOCATION 
1 OR 

SYMBOL 


CO»RON RI.OCK /LIST / MAP SIZE 4F8C 
LOCATION SYMROL LOCATION 

4F0C NOCLS 4E1C 


COMMON Rl PCK /INFO / MAP SIZE 4FF« 
LOCATION SYMBOL LOCATION 

PO IUOATE 24 


COMMON RLOCK /RISC / MAP SI7E AH 

LOCATION RYMROL LOCATION 

A I AFOOT 1C 

6 C IRRIOB 7C 

COMMON PI OCK /RUFFFR- / MAP SIZF 3208 
LOCATION SYMBOL LOCATION 

3200 KOIUHN 3204 


COMMON RLOCK /RAOIAN / MAP SIZE F9CC 
LOCATION SYMBOL LOCATION 

4 IRRIT 8 


SURPPORPAMS CALLED 

LOCATION SYMBOL LOCATION 


SCALAR MAP 

LOCATION SYMROL LOCATION 

fr I EC 

Ff NDFX 100 


ARRAY MAP 

LOCATION SYHBOL LOCATION 


•OPTIONS IN FFFFCT* TD«FRCOIC»SO'JBCF,nOI TST«OFCK.NOLOAO,MAP 
•OPTIONS IN FFFFCT* NAHF = RAOPEO » LTNFCNT = 75 

•STATISTICS* SOUPCF STATFMFNTS = 2fl»PPOOPAM SI7F = 

•STATISTICS* NO OIAGNOSTICS RENF«ATFD 



. '* 


14/56/32 


PAGF 0002 


SYMBOL 

ISMBLS 

LOCATION 

4F14 

SYMBOL 

location 

SYMBOL 

LBLDAT 

LOCATION 

C4 

SYMBOL 

LSTTOT 

LOCATION 

4EO0 

SYMBOL 

Al 

IGRIDN 

LOCATION 

4C 

90 

SYMBOL 

NMFILF 

NOPGES 

location 

60 

A4 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

IOOTPD 

LOCATION 

C 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

IOCATION 

SYMBOL 

J 

IN0FX1 

LOCATION 

FO 

104 

SYMBOL 

INDEX 

LOCATION 

F4 

SYHBOL 

LOCATION 

SYMBOL 

LOCATION 







riMN 






FORTRAN IV 6 LEVEL 
FTL r LISTDOT 


21 


PFAOAi DATE * flOlST 

PURDUE / LAPS 3031 


14/56/3? 


PAGS 0001 


0001 

000 ? 

0003 

0004 


0005 

0006 


0007 

0008 
0000 

0010 


0011 

0012 

0013 


0014 


0015 

0016 

0017 

0018 
nni 9 
no?o 


oo?i 

00 ?? 

00?3 

00?4 

00?5 

00?6 

no?7 

00*8 

oo?R 

0030 

0031 

0032 


C 

c 

c 


c 

c 

c 


c 

c 


r 

c 

c 

c 

c 

c 

c 


SURRDUTINF RF4DAT 

PURPOSES RFAD AT»S ^II.F FOR LATER COHPAPISION 

COMMON /LT5T/I TST (909*5) * NOOOTS* NOCLS* ISM8LSC30) 

COMMON /TNFO/NnTF{Rl,NUML«L*IU»lArF 14^101 *L8LDAT (999*5) *LSTTOT 
1 *N0TF1 (4) *NUDATF 

COMMOW/MTSC/NOACfUl NSOIL (6) • IACUDT (2«6) * Al (5) *NMFliLF < 2) ♦SEGM* 

1 0ATF(4) *IGRT0B(S) ,TGRinN(S) *N0PGES 

OAT A JFND/**ENn»/ 

OATA T8LNK/« »/ 

RFAD NUMRFP OF HOTS 

MUDATp = 0 

READ (?9* 10) L5TT0T *N0TF 
10 FORMAT (T4.8A4) 

NUHL8L - 0 
READ POT RECORDS 

NOOOTS = 1 

5 RFAD <?9*?0*FND=10n0) CLBLDAT (NODQTS* J) • J=1 *51 
?0 FORMAT ( A4*4T4) 


CHECK FOP END 

TF (l BLOAT (NODOTS* 1 ) 


,FO. TFNO) GO TO 100 


CHECK FOP NQNRLANK LAPFL AND COUNT 

TF CLBLOAT (NOD0TS*! 1 .NF* IDLNK) NUMLBL = NUMLBL 4 1 

NOnOTS = NODOTS ♦ 1 
GO TO S 


100 NODOTS = NODOTS - 1 
WRITE (3*996) NOOOTS 
996 FOPMAT (IX* * NODDTS = ••IS) 

RFAD THF RFMATNDFP OF INFORMATION ON Al*S FILE 

PFAD BEGINNING AND FNDING ADDRFSSFS FOR EACH GRID 

RFAD C?9*3th*FND=10nO) (NOTF1 ( I I *1=1*4) * (IGRIOB C I ) >» IGRIDN Cl ) ♦ 1= 
30 FORMAT {4A4*S(T4,1X,I4*?X)) „ _ . „ „ , _ 

WRITE (3,9Q8) CNOTF(I) ,1=1*4) * CIGRTOB(I) * IGRIDN ( II ♦ 1=1 *5) 

998 FORMAT (IX *4A4* 5 i i 4* 1 X* I4*?X) ) 

?00 NUDATF = NiJDATF ♦ 1 

TF (NUDATF •GT.10) GO TO 900 

READ (?9#4rtfFND=900) ( IUDATF ( I •NUDATE ) tl=l»4) 

40 FORMAT (444) 

GO TO ?00 

900 NIJDATF = NUDATF - \ 

1000 RFTIJRN 
FNO 


LIS03690 
LIS03700 
LTS03710 
LIS037/0 
LIS03730 
LI5037*d 
LTS037S3 
I IS037f»3 
I IS03770 
l IS037H9 
LIS0379 ? 
1 IS03FC 5 
LIS03H1 *i 
LIS03*?0 
LIS03H*c» 
LIS03B40 
LIS03H60 
LIS03B60 
LIS03870 
LIS03HH3 
i IS03B9U 
LIS03900 
LI SO 391 0 
LlS 03 R?ii 
LIS03930 
LIS03940 

L IS03950 
LTSQ3R6n 
LISOIR^J 
LIS039ft.l 
LIS03mQO 
L1S04O00 
LIS04010 
L 1 S 04 J 5/0 
LIS04030 
L IS04O4O 
LTS04OS0 
LIS04040 
LIS040 70 
LIS040MJ 
LIS04G99 
IIS04HJ0 
LIS04110 
LIS041?« 
LlS04nft 

LIS04140 
ItSILlSOAl^O 
LIS04I63 
LIS041 76 
LIS041HO 
LIS0419U 
LIS0*?O0 
l IS04210 
LIS04??0 
LIS04?*G 
LIS04?40 
LIS04?60 
LIS04260 



FORTRAN IV O LEVFL 21 


RE ADA I 


OATE = 801S7 


FILE I ISTOOT PlIROUE / LARS 3031 


COMMON RLOCK /LIST / MAP SI7E 4E«C 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

I T«T 0 NOOOTS 4F0C NOCLS AEIO 


COMMON PtOCK /INFO / map SI7F 4FEB 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

NOTF 0 NIIM1.RL ?0 lODATE 24 

NOTF1 4F04 HIIOATF 4FF4 


COMHON BLOCK /Wise / MAP SI2E AB 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

NOACO 0 I.NSOTL * T AFOOT 1C 

SFGM 6R OATF 6 C IGPIOB 7C 


SUPPROOR/vms CALLFO 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

TBCOM* FO 


SCALAR map 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

TFNn F4 TRLNK Fb J FC 


format statement map 

symbol LOCATION SYMBOL LOCATION SYMBOL LOCATION 

10 104 ?0 IOC BB6 114 

40 14A 


•OPTIONS TN FFFFCT* TO.EBCOTC. SOURCE. NOLI*? «OECK»NOLOAO. MAP 
•OPTIONS TN FFFFCT* NAME = RFftOAI * LINECNT = 7S 

•STATISTICS* SOURCF STATFMFNTS = 3 ?. PROGRAM SI7F = 118? 

•STATISTICS* NO DIAGNOSTICS GENERATED 

•STATISTICS* NO DIAGNOSTICS THIS STPP 


Vi 


14/S6/32 


PAGE 0002 


SYMBOL 

TSHBLS 

LOCATION 

4614 

SYMBOL 

LOCATION 

SYMBOL 

LML04T 

LOCATION 

C4 

SYMROL 

LSTTOT 

LOCATION 

4E00 

SYMBOL 

AI 

IGOION 

LOC AT I ON 
4C 
OO 

SYMBOL 
NMF ILE 
NOPGES 

LOCATION 

60 

A4 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

I 

LOCATION 

100 

SYMBOL 

LOCATION 

SYMBOL 

30 

LOCATION 

126 

SYMBOL 

S9B 

LOCATION 

137 


• 
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FORTRAN TV 
FIL^ LIST 6 RN 


G LEVEL 21 


nooi 

ooo? 

oom 

nno4 

noos 

0006 

0007 

oooo 

nono 


0010 

noil 

oni? 


0013 

0014 

0015 

0016 


0017 

001« 

0019 

no?0 

no?i 


c 

c 

c 

c 

£ 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROPOSE: 


LISTGRN DATE = B 01 S 7 

PIJRQUE / LARS 3031 

PRTNT TABLF TV — OROEPFO BY GREEN NUMRFR 


14 / 49/51 


PAGE 0001 


format of input 

AT LABEL # LINF NUMBER, 
LIST 

DESCRIPTION OF VAPI ABIES 


sample* CLUSTER INDEX 


DATA RFAO FROM INPUT ERF 15 — (SFGMFNT NUMRER) PlAlA 

LTSTIAI LARPt* t INE NUMBER* SAMPLE* ORG CLUSTER INDEX* BLANK! 
NOOOTS — NMMRER OF DOTS 


BIJFFFtt 

TOATA — LINF OF DATA 


f 1 96 PIXELS X 16 CHANNELS) 


LIS00010 
LIS0OOPG 
L1S00030 
LIS0004O 
LISOOOSO 
LIS00060 

Lisoooro 
LISOOOrtU 
LIS00091 
LI SO 01 00 

lisoo n ;t 

LISOO I/O 
LIS001 -0 
LIS001-3 
LISOO)* a 
LISOOl'tO 
LIS09W0 
LIS001 -*0 
LISOOl - ) 
LTSOQ/Hfl 
LIS00/10 
LISOO/PO 
Ltson?io 
LISOO ff ’*Q 
LISOO/*- 0 
LISOO/^O 
LISOOP/G 
LISOO/no 
Ufson/vo 
LIS GO Wa* 
LIS001IU 
LISOO 1^0 

lisoo r«o 

COMMON /RE°ORT/ I AGO 1 (Q99,6) .IACO? (999,6) * IACQ3 (999*6) , IAC04C999*6)LISOO «40 

LISOO 150 

COMMON /WH0ATE/KFn*TP*KLD4TE 


POINTERS TO CURRENT VALUES 

LTNENO — CURRFNT LINF NUMBER 
KOLUMN — CURRENT SAMPLF NUMBER 

COMMON /LIST/ LIST (Q99,S) * NODOTS* NOCLS* ISNRLSC30) 
COMMON/BUFFEP/IOAT A ( 3?00) *L INFNO*KOLUMN 

COMMON/RAD I AN/MOCHAN* IGPFFN* IBRIT* IOOTRD (999* 1 6) 

COMMON/MISC/NOACO.LNSOIL (6) * I ACODT (?*6) * AI (5) *NMEILE (?) *SEGM* 
I DATPC4J *IGRTDPCS) *IGRION(S) ,NOPGES 
COMMON /INFO/NOTE cm * NUMLBt * lUDATE < 4* 10) *LBLDAT (999*5) *LSTTOT 
1 «MOTE] (4) •NIIDATL 


PAT A ISRTVl/ 3 /*ISPTW?/ 4 / 


»*•» DEFINE FILE TO RE H 7 RECORDS OE 1400 WORDS EACH *** 
DEEIME FILE ? 5 (U 7 * ? 400 * U* ID) 


INITIALIZE 

CAIt SETPin 

TE (NOCHAN .GT. 1 ?) WRITF( 3 * 9 Q 90 ) 

9990 FORMAT (» INVALID NO OF CHANNELS REQUESTED* i 

RFAD LIST OF AI LABELS, LINE NUMBERS* SAMPLES* CLUSTERS 

CALL PEAOAT 

GET RADIANCE VALUFS FOP pixfls 
CALL RDRADN 


C 

C 

C 

c 

c 

c 

c 

c 

r 

c 


NUMBR * NOACO 


LISOO 1 m) 
LISOO 110 
LISOO W O 
LISOO 190 
LISC 04 C 0 
LIS 00410 
LIS 004 P 0 
LIS 004 VO 
LTS 00440 
LIS 00450 
LIS 00460 
LIS 00473 
LTS 004 M 9 

LIS00440 

LIS 005 L 0 
LIS 0051 O 
LIS 005/0 
LIS 00510 
LTSOOSAO 
LIS 00550 
LIS 005 f»O 
LISQ 05/0 
LISOCHMO 
L 1 P<: 3 v ^0 
l 1500600 
LISQ 0610 
LIS 006 P 0 
LIS 0063 Q 
LIS 0064 CI 


IF (NUMBR .GT« 4) NUMBR =4 
SFT BEGINNING AND ENDING INDICES FOR ACQUISITION DATES TO BE PRINTED LlSOOSSO 

LISOO660 

KEDATF = 1 LISOO^TD 

KLDATE 2 = NUMBR LISOO^h j 

TGREFN a ? LISOO' W 

TRRIT s 1 LlSOO/f } 

CALL MOVE I ^ (lAC'llU*!!) LISOO?!? 


k 


FORTRAN IV 5 LFVFL ?1 


LISTG9N 


OATF - 80157 


14/49/51 


PAGE 0002 


FTL C LTSTGRN 


PUPOUE / 

LARS 1011 


002? 


CALL P1SRT 1 I ACQl (1*1) * I5RTV?) 


LIS007?0 

nn?3 


CALL PISRT (TAC01O,l),TSRTWl) 


LIS00710 


C 



LI500740 


c 



LISOO 750 

nn?A 


TP (NUMRR.LT. 2) tin TO 200 


LIS00760 

OOPS 


TGPF^N = 4 


LIS007/0 

oopis 


TRRtT = T 


LIS00743 

O0P7 


CALL HOVr IT (110)2(1,1)) 


LIS00790 

0028 


CALL PISRT (TAC0?(K1WT5PTV?> 


lisoohi a 

no*** 


CALL R1SRT dACOPd .1) .ISRTW1 > 


LISOOHJO 


c 



LISOOh o 


c 



LISOO « «; 

ooin 


IF (NIJMRR .LT .3> Gn TO POO 


LI500t*.n 

nmi 


IOPFFN = 6 


LISOOH^ 0 

(101? 


TP9TT =r 5 


LISOORf'J 

0033 


CALL H0VFfTClACOin«lll 

• 

LIS008/G 

0034 


CALL PI SWT (IArOT(l.l).lSRTW?) 


LISOORRO 

0035 


CALL P1SRT (TAC03n,n^I59Ttfn 


LISOOHwD 


c 



LIS009 m 


c 



LIS0091O 

0016 


IF (NUMRR .LT. 4) 50 TO POO 


LISOOWFO 


c 



LIS0O9IO 


c 



LISG09-.0 

0017 


TGPFFN = 8 


LISOO »■ 0 

0038 


IRPTT = 7 


LISOQ^* 0 

0019 


CALL MOVEIT ( I ACOA (1,1)) 


EISOOVTO 

0040 


CALL PISRT (I ACOA (1 .1) ,ISPTW2) 


LISOOO *t7 

0041 


CALL P1SRT (TAr<)4(l,l) ,1SHTWI» 


LISOORRO 


c 

WRITF G°IO RFPOST 


L ISO 1 000 

O04P 


POO CALL PFPGRD (NUHRP) 


Lisoiaio 


c 



LISOlOc 0 


c 

IF WORF THIN 4 ACOUISTIONS THFN WRITE RFMAININ6 

l IS01CM0 


c 



LISOIO^O 

0041 


IFfNOACO.LF.4) GO TO 400 


LISOIG^I 


c 



LIS010»;*> 

0044 


NUMRP = NOACO - 4 


LI50I0/0 


c 



LISOIOhO 


c 

SFT INOICFS FOR ACQUISITION OATES RASEO 

ON NUMBER OF ACOUISTIONS 

L ISO 1 0^0 


c 



USOlltiO 

0045 


KFOATF = S 


LXSC1U0 

0046 


KLOATE = NOACO 


Lison/o 


c 



LIS012 «Q 


c 

7FR0 FIRST AND SFCO^O AC0UT5TI0N PUFFER 


LIS01140 


c 



LIS01I50 

0047 


no 100 1=1,6 


LI5G1160 

0048 


00 TOO J=I,QRR 


Lisonro 

0049 


TACO) (.1,1) = 0 


LIS01 IrO 

0050 


300 JACO?(J«n = 0 


I ISO 11 90 


c 



LISOI/OO 


c 

COMPLFTE procfssing of REMAINING acquisitions 

LIS01/10 


c 



LIS01//0 

OOS1 


TGPFFN = 10 


LISOI? *0 

OOSP 


TORI T = 9 


LTS01/«9 

00S3 


CALL HOVFTT ClACriKl,!}) 


LISOIP^O 

0054 


CALL PISRTdACOl (1,1),TSPTW2) 


LISOlPf 0 

0055 


CALL PlSWKIACOl (l.l),ISWTWl) 


LIS01P70 


c 



LISOlPHO 

0056 


IF (NOACO .LT. 5) GO TO 150 


L ISO 1290 

0057 


TGPFFN s IP 


US01300 

0058 


IRRIT = n 


LISOllIO 

0059 


CALL HOVFIT (IAC02 0.1)) 


LISOllPO 

0060 


CALL P1SRT ( TAC02 (1,1), ISRTW2) 


LIS01 ISO 

0061 


CALL P1SRT ( I AC02 ( 1 , 1 ) , I SRTW1 ) 


LISOI^O 


c 



LIS01150 


c 

WRTTF RFHAINING RFPORT 


LIS01160 


c 



LIS011/0 

006? 

IPO TAIL RPPGRO (NUMMR) 


LISOI I**ff 

0061 


400 CONTINUE 


LlSOi , ,9 

0064 


STOP 


LISOI 0 

0065 


FNO 


LISOI 4,0 

- . * t ■ **** • 

, -wr 

_ :aa£ ^ .... ... ... ....... 




liim iritiiwftw 
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FORTRAN IV 6 LFVFL 
FJL C LTSTGRN 


2! 


LIST6PN DATE = BO 157 

PUPOUF / CARS 3031 


14/49/51 


PAGE 


SYMBOL 

UST 


COMMON PI OCK /LIST / HAP SIZE 4FBC 
LOCATION SYMBOL LOCATION SY^PS 1 - L0 SrT« 0N 

n N0D0T5 4F0C NOCLS 4F10 


SYMBOL LOCATION 

ISMBLS 4F14 


SYMBOL 


SYMBOL 

IOATA 


LOCATION 

0 


COMMON RIOCK /BUFFFP / MAP SIZE 3208 
SYMBOL LOCATION SYMBOL LOCATION 

LINENO 320(1 KOLUHN 3204 


SYMBOL 


LOCATION 


SYMBOL 


SYMBOL 

nochan 


LOCATION 

n 


COMMON RIOCK /PARIAN / MAP SIZE F9CC . „ r , TI „, 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 
IGRFFN 4 IOPIT 8 IOOTRD C 


SYMBOL 


SYMROL 

NOAC0 

SFGM 


LOCATION 

0 

AR 


COMMON P| OCK /HISC / “AP SIZE A8 

SYMBOL LOCATION SYMBOL LOCATION , SYMBOL 

LNSOIL 4 IACOOT 1C AI 

OATE AC IGPIOB 7C I ORION 


LOCATION 

*C 

90 


SYMBOL 

NMFILE 

NOPGES 


SYMROL 

NOTC 

N0TF1 


LOCATION 

0 

4£fU 


COMMON Rl OCK /INFO / MAP SIZE 4FF8 

SYMBOL LOCATION SYMBOL LOCATION ?XPP% 
NUMLRL 2(1 IOOATF 24 LBLOAT 
NtJOATE 4FF4 


LOCATION 

C4 


SYMBOL 

LSTTOT 


SYMBOL 

IAC01 


LOCATION 

0 


COMMON Rl OCK /RFPORT / HAP SIZE 176*0 
SYMBOL LOCATION SYMBOL LOCATION 

IAC02 SOAR IAC03 RB50 IACQ4 


LOCATION 

11BF8 


SYMBOL 


SYMBOL 

KFOATE 


location 

0 


COMMON BLOCK /VHOATF / MAP SIZE B 

SYMROL LOCATION SYMBOL LOCATION SYMBOL 

KLOATE 4 


LOCATION 


SYMBOL 


SYMBOL 

OIOCSA 

MOVFIT 


LOCATION 

100 

114 


SYMBOL^ B LOCATION SYMBOL LOCATION S X H 5°V LOr fnr° N 

SFTP10 104 IBCOH# 10B REAOAl IOC 

P1SRT 11* RFPGRO 11 C 


SYMBOL 

•rdraon 


SYMBOL 

TSPTW1 

J 


LOCATION 
1 AO 
1P4 


ca A i Ap map 

SYMBOL LOCATION SYMBOL LOCATION SYMBOL 

TSRTW2 IA4 10 IA8 NUMBR 


LOCATION 

1AC 


SYM30L 

I 


SYMBOL 

9990 


LOCATION 

IBP 


fopmat statemfnt map 

SYMBOL LOCATION SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


•OPTIONS TN FFFFCT* IO.FRCniC»SOIIRrF.NC.LIST*OFCK«NOLOAn«HAP 
•OPTIONS IN FFFECT* NAMF = LTSTGHN . LINFCNT^ 7S 

•STATISTICS* SOURCF STATFMFNTS = 6S.PP0GRAM SI7E * 

•STATISTICS* no DIAGNOSTICS GENE o ATF0 


1592 


0003 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

60 

A4 

LOCATION 

4E00 

LOCATION 

LOCATION 

LOCATION 

11® 

STATION 

iao 

LOCATION 






UtaMNMiri 






te. 


FORTRAN IV 
FILE LTSTGRN 
POOI 


000? 

0001 

0004 

0005 

0006 
0007 


0000 


0009 

0010 
non 
001? 
0013 


0G14 

nnis 


0016 

0017 

OOlft 

0019 

no?n 

00?1 

00?? 


no?3 

on?4 

oops 


<5 L FVFL ?I RDPAON DATE * 80157 14/49/51 

P1IR0UF / LARS 3031 


SUHROUTtNF RORAO*^ 

C 

C PURPOSE: READ RADIANCE VALUES FOR SELECTED PIXELS 

r 

TOMMOM /LIST/ LIST (999*5) * NOOOTS* NOCLS* TSM8LSC30I 

COMMON /INP0/N0TE(R) • NUMLBL* IIIDATE t4* 1G) ♦LftLOAT (999*5) *LSTTOT 
1 *NOTFl (4) .NUfUTE 

C0MM0N/MTSC/N0ACO t | NSOIL (6) • IACQDT(?*6) *AI(5> *NMFILF f?) *SEGH* 
I 0ATFC4) *lGRTOR(S) «TGPTON(S) *NOPGFS 
rOHMON/RUFFFP/TnAT^ (3?00) *L INENOvKOLtINM 
C 
C 

rOMWON/RADTAN/NOCHAN^IGRFEN, IRRIT ♦ IDOTRD (999« 1 6) 

C SFT LAST LINE TO RF 0 
LSTLNF = 0 
C 

C SFT LINE SI7F TO RF 19* PIXELS * NUHRFR OF CHANNELS 
LINES? = 196 * NOCHAN 
C 

C RFAO LINES OF VALUES FOR EACH PIXFL A NO SAVE RADIANCE VALUES 

00 1000 T = l,NOnOTS 
t.INENO = LRLOAT ( T *P) 

KOLUMN sr LRLOATU*^) 

. TF (LINFND .FO. LSTLNE) GO TO 100 
TF (LINFNO .FD. 0) GO TO 1000 
C 

C NFW LINE • PFAO I.TNF 0*^ OATA 

PFAO C?S*L JNFNH) (TOATA(J) * J=1 %L INESZ) 

1 STLNF = I TNFNO 
C 

C MOVF OATA TO I00TPD 
ICO INDEX = COLUMN 

00 ?00 L = 1. NOCHAN 
IL = L 
nofx = ll/p 

IF (MOOCL^P) .FO. O) lOATAtTNDFX) « I OATA {INDEX ) -LNSOIL INDEX) 
TDOTOnUiL) = TOATA (INDEX) 

POO TNDEX s INDEX ♦ 196 

C 

C 

1000 CONTINUE 
PETUPN 
END 


LIS014PG 
LTS01430 
LTS01440 
I IS014S0 
LIS01460 
LIS01470 
LIS014R0 
L 1501490 
LIS015O0 
LIS0I510 
LIS015/0 
L ISO IS W 
LISOIS^O 
Lisoissa 

LIS01560 

lisoisio 

LIS015H0 
LIS015R0 
LIS01600 
LIS0I610 
LIS016PC 
LIS016T0 
LIS016A9 
LIS016S0 
LIS01660 
LIS01670 
LIS016R0 
LIS01690 
LIS017GD 
L ISO 1 71 0 
LIS0I7P0 
1 TSOI 7 30 
LI SOI 740 
LIS0I7S0 
LIS0I7E0 
LIS01770 
LIS01780 
LI SO 1790 
Lisoxaoo 
LIS0IR10 
Lisojflpr# 
LIS01H3Q 
LIS01R40 
LIS01HS0 
LIS01R60 
LIS01870 


PAGE G001 




X 


ROPAnN 


PATE * B01S7 



FORTRAN IV 6 LEVEL 21 
FTL C LISTGRN PIJROUE / LARS 3011 


COMMON BLOCK /LIST / MAP SI7E 4FRC 


SYMROL • 

LOCATION 

SYMROL 

( OCATION 

SYMBOL 

LOCATION 

LIST 

0 

NODOTS 

AFOC 

NOCLS 

AEIO 



COMMON Bt OCK 

/TNFO / MAP 

SIZE AFFR 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

NQTF 

0 

NUMLBL 


lUnATF 

2b 

NOTE! 

AEOA 

NUOATE 

AFF4 





COHMON Rt OCK 

/MISC / HAP 

SIZE A8 

SYMBOL 

LOCATION 

SYMROL 

LOCATION 

SYMBOL 

LOCATION 

NO A CO 

n 

INSOIL 

A 

IACOOT 

1C 

sfom 

6B 

?)Af^ 

AC 

IGRIOB 

7C 


COMMON BLOCK /BUFFER / MAP SI7E 1208 
SYMBOL LOCATION SYMBOL L0C4TI0N SYMBOL LOCATION 

TOATA 0 LTNfc'NO 12W1 KOLUMN 320* 


COMMON Rl OCK /RADIAN / MAP SI7F F9CC 
SYMBOL LOCATION SY M BOL 10CATI0N SYMBOL l OCATION 

NOcman n IGRFFN * IPRJT 8 


SUBPOOGSius CALLFO 

SYMBOL LOCATION SYMROL LOCATION SYMBOL LOCATION 

TRCDM* OR 


SCALAR MAO 

SYMROL LOCATION SYMBOL LOCATION SYMBOL LOCATION 

LSTLNE F* LINES? FR I EC 

l FR LL PC SSOFX 100 


•OPTIONS IN FFFFCT* TO.FRCDIC.SOUBrr.NOL IST«OFC<tNOLOAD.KAP 
•OPTIONS TN FFFFCT* NAME = RORAON , LINFCNT = 7S 

•STATISTICS* SOURCE STATF«FNTS = ?S, PROGRAM SI7E = 79* 

•STATISTICS* NO DIAGNOSTICS GENERATED 



14/49/51 


PAGE 0002 


SYMROL 

LOCATION 

SYMBOL 

LOCATION 

TSMPLS 

AEIA 


- 

symbol 

LOCATION 

SYMBOL 

L»>CATlOH 

LfiLOAT 

C4 

LSTTOT 

*EB0 j 

| 

SYMBOL 

LOCATION 

SYMBOL 

! 

location 

41 

AC 

NHFILE 

98 

I 6RI0N 

90 

NOPGES 

A* 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

symbol 

LOCATION 

SYMBOL 

LOCATION 

FOOTRO 

C 



SYMBOL 

LOCATION 

SYMBOL 

location 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

J 

FO 

INCEX 

F* 





FORTRAN IV 6 LEVEL 21 


MOVE IT DATE - 80157 14/49/51 


FTLF LISTGRN 


PURDUE / LARS 3031 


5YMROL LOCATION 
NOTF 0 

N0TF1 AF04 


COMMON BLOCK 
SYMBOL LOCATION 
NUML?*i_ PO 

NUDATF 4F«^4 


/INFO / map SIZE 4FE8 
SYMBOL LOCATION 
IUDATE 24 


SYMBOL 

LBLOAT 


LOCATION 

C4 


SYMBOL LOCATION 
I 1ST 0 


common monc 
SYMBOL LOCATION 
NODOTS 4F0C 


/LIST / MAP SIZE 4FRC 
SYMBOL LOCATION 

NOCLS 4E10 


SYMBOL 

ISHBLS 


LOCATION 

4E14 


SYMROL LOCATION 

NOCHAN n 


COMMON BLOCK 
SYMBOL LOCATION 
TGREEN 4 


/PAD TAN / M A p 

symbol 

IBPIT 


SIZE FQCC 
LOCATION - SYMBOL 
8 IOOTRO 


LOCATION 

C 


SYMBOL LOCATION 
CAt DOT B4 


SUBPP00PAM5 CALLFO 

SYMBOL LOCATION SYMBOL LOCATION 


SYMBOL LOCATION 


SYMBOL LOCATION 
NDFX C4 


SYMBOL LOCATION 
TTFHP OH 


SC&LAP MAP 
SYMROL LOCATION 
T CP 


ARRAY «AP 

SYMBOL LOCATION 


SYMROL LOCATION 
IMnOT CC 

SYMBOL LOCATION 


SYMBOL LOCATION 

SYMBOL LOCATION 


♦OPTIONS IN EFFFCT* 
♦OPTIONS IN FFFFOT* 
♦STATISTICS* 
•STATISTICS* 


ID *FBCDIC* SOURCE* NOLI ST* DECK •N0L04D»MAP 
NAMP = HOVFIT , LTNFCNT = 75 

SOURCE STATFMFNTS = lo*P»OGRfiM ST7E = 

NO DIAGNOSTICS GFNFPATFO 


754 


PAGF 

SYMBOL 

LSTTOT 

SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 


0002 

LOCATION 

4F00 

LOCATION 

LOCATION 

LOCATION 

LOCATION 

location 


iMM 
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onnft 


anno 
nolo 
noi 1 
ooi? 


0013 

0014 

0015 


0016 

0017 

0018 
0019 


00?0 


00?1 

no?? 

on?3 


00?4 


00?s 

00?6 


ft 0?7 

on?R 


c 

c 

c 

c 

c 

c 


SUBROUTINE RF p GPO (NIJMRR) 
PURPOSE: 


REPORT T*F SETS OF LINFS NUMBERS * SAMPLES* GREENNESS AND 
BRIGHTNESS V4LUFS BY THFIR GRIO NUMBER 


r 

C 

C 

r 

c 

c 

c 

c 


LIS023SO 
L1S02360 
LIS02370 
LIS023P0 
LIS02390 
LIS02400 
LISQ2410 
l ISO?4?0 
LIS024 1*1 
LIS02440 
LIS024S? 
LTS0246?? 
LTS024/0 
LIS02480 
LIS02490 
LTS02500 

C0M^OH/PL0T/TITLF(?o) *KLAPFL<?0) *YLARFL(5) *NPOTNT,X C 1000) *Y(1000> LISO2510 

LTS025?*i 

rOMHON/PADT AN/NOCHAN* IGPEFN, IPRIT* lnOTRO (999* 16f LIS02510 

LIS02S40 

LIS0255O 

COWHON /REPORT/ 1 fiC^l (999*6} * I ACO? (999* 6) * I AC03 (999, 6) * l AC04 (999,6) LlS02Bnii 

LIS02S/8 


COMMON /LIST/ lIST(9Q9*5), NOOOTS* NOCt S* ISHRLS(30> 

rOMMON/MlSC/NOACO,| NSOIL (6) * IAC0OT (2*6) » AI (S) *NWFILE (2) *SEGH* 
1 OATF ( 4 ) *IGRinRC c ) * TRRIDN(^> *NOPGFS 

COMMON /INFO/NOTF («} *NljMLBl * IUDATE(4*10) *LBLOAT (999*5 ) *LSTTOT 
l *N0TF1 (41 .NUOATF 

COMMON/RUFFFP/TnATA(3?no) ,1 TNFNO,KOLUMN 


C 

c 

c 


WRITE THE TTTLF FOR REPORT 

NOPGFS - ft 
CALL HE API V 
CALL TTTL~G <NUM R P> 
NUMLTN = 11 


C 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

C 


c 

c 

c 


WRITE REPORT OEPENDTNfc ON NUMRFP OF ACQUISITIONS 

IFTRST = 1 

LAST = LSTTOT 

00 800 TA=TEIRST<.I AST 

CmiNT NUMBER OF LINFS 

^UMLIN = NHMt IN ♦ 1 

inn if (nuhlin .le. 7m go to no 

NUMLTN = 8 

CALL TTTLFO (NUMBR) 

WRITE OATA OE D ENOFNT ON NU««FP OF ACQUISITIONS TO BE PR1INTE0 
lift GO TO (l?0*l40*l*(Ulft0) * NUMBR 
1 ACQUISITION 

1?0 WRTTF (6*1 ?S) lACQl (TA*1) *TACQU1A*4) * I ACQ1 Cl 4*6) * T ACQHIA*1> 
I * I ACQ1 < I A* ?) 

1?S FORMAT ( IX* *♦» * ?X* I?*4X* I 3*4X* 44*?X* I3*1X*I3*1X* 

GO TO ROO 

? ACQUISITIONS 

14ft WRTTF (6*1 4* c ) I ACO) (TA.31 *IACQ1 (IA*4> * IACQ1 (IA*6)*I AC03 (IA*D 
1*1 ACQ1 (I A*?) *IAC0?(IA*3> *IACQ2(IA*4) * IACQ2UA*M * 

7IACQ? (I A* I) *IAC0^(TA*?) 

145 FORMAT ClX* ,#f *?(?X * ?3*4X* T3*4X* A4*2X • T3* 1 X * 13* IX* • I ) 

GO TO ROO 

9 ACQUISITIONS 

160 WRITE (6*165) TACO] (TA*3) *TAC01 (IA*4) *IAC01 <T**6> *1ACQJ (TAtl) 
1 * I ACO I (IA*?> *IACO?(TA*3) *IAC0?(IA*4) *IAC0?«IA*6) * 

?TACQ? ( I A* 1 1 « 1 4CO? (T&*?)*I ACQ3 ( I A * 3 ) • I AC03 ( 1 4*4) * I ACO 3 ( 1 4*6) 
3*IACQ3(IA*1>* lACOSdA,?) 

165 FORMAT nx*i*»,T(25f t I3*4X*J3,4X*A4*2X*I3*lX*n*lX,»*«n 


LIS02SM?, 

LlSOHS^*} 

LIS026a0 

L IS026 1 *3 

LIS026?(i 

LlS026ifi 

LIS02640 

LIS026 t '*) 

LIS02660 

LIS0267O 

LIS026H0 

LIS02690 

LIS0270ft 

LIS02710 

LIS02720 

LIS0273?) 

LIS02740 

LIS027S0 

LIS02760 

LIS02770 

LIS027P 

LIS0?79^ 

LIS02800 

LIS02B10 

LIS028P0 

LIS028i0 

LISQ2840 

LIS02860 

LIS02860 

LIS02870 

LIS028M0 

LIS0PB90 

LISQ2900 

LIS0291C 

LIS029P0 

LIS02930 

LIS02940 

LIS02950 

LIS029S0 

LIS 02970 

LIS02980 

LIS02990 

LIS03000 

l IS03010 

LIS03020 

LISOSJ^'S 

LIS03040 

LIS030S0 
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00?9 


0030 


0031 

003? 

0033 

0034 


C 

c 

c 


GO TO 800 


4 ACQUISITIONS 

180 WRITF{4*I85UAC01 CTA*3V .IAC01 (IA^4) *TACQ1 CIA *6) « IACQ1 CIA* 1 ) 
1 %IAC01 <IA*P) ♦IACOJ?(IA*35 *IACO?UA*4) *IACO?UA*f>l « 

?IArQ?f TA*l) • T AGO? ( T A •»?) *T4CQ3UA«3) olACQ3(lA*4) «IAC03CIA*6} 
3*1 AC03 CTA*1)*I *CG 4 3 ( I A»?3 *rACQ4(I4*3) , IACQ4(IA*4) * 

41 &CQ4 ( T A ♦ 6 ) ♦ I AC04 ( T A * 1 } * I ACQ4 ( T A « ?) 

185 FORMAT (lx**** ,4(?X,I3*4X* J3*4X,A4.2X.T3*lX*I3,lXt •*« ) ) 

800 rONTTNUF 
RETURN 
FNH 


LIS030*0 
LIS03070 
LIS03080 
LIS030QO 
LIS0310Q 
LIS03110 
LIS031 ?0 
LIS031 10 
LIS0314 0 
LI 5031^0 
L IS031 **{| 
LI SO 31 70 
LIS031RO 
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REPGRD DATE =* B01S7 

PURnilE / LARS 3031 


SYMBOL 

LTST 


symbol 

NOACO 

SFGM 


symrol 

NOTF 

NOTFt 


SYMBOL 

TOATA 


SYMBOL 

TTTLF 

Y 


SYMBOL 

NOCHAN 


SYMBOL 

TACOl 


SYMBOL 

HFAOIV 


SYMBOL 

NIIMBR 


SYMBOL 

12S 


LOCATION 

0 


LOCATION 

0 

6B 


LOCATION 

0 

4FD4 


LOCATION 

0 


LOCATION 

0 

1 05B 


LOCATION 

0 


LOCATION 

0 


LOCATION 

100 


LOCATION 

m 


LOCATION 

12B 


COMMON BLOCK /LIST / w 
SYMBOL LOCATION SYMBOL 
NOOOTS AFOC 


NOCLS 


COMMON BLOCK /MISC / 
SYMBOL LOCATION SYMBOL 

LNSOIL * 

DATF SC 


IACOOT 

TGRI08 


COMMON Bl OCK /INFO / M 

SYMBOL l OCAT ION IXSatE 

NUMLBL IUOATE 

NUOATF AFFA 

COMMON «l OCK /BUFFER / M 

SYMBOL LOCATION KOLUMN 

LTNFNO 3?00 KOLUMN 

COMMON Bl OCX /PLOT^ / * 
SYMBOL LOCATION ^,'ljpi 

XL ARFL SO YL AHr l 


SYMBOL 

IGREFN 


SYMBOL 
I ACQ? 


LOCATION 

4 


ni in ni 

LOCATION 

5QA8 


SYMBOL 

IPRIT 


m i / 

SYMBOL 

IACQ3 


SUBPROGRAMS CAl LFO 

SYMBOL *- 0C fII 0N IBCOM# 

TITLEG 104 IPC-JHW 


SCALAR MAP 
SYMBOL LOCATION 
NUMLTN 11* 


SYMBOL 

IFTRST 


format statfment map 
SYMBOL LOCATION SYM ?2k 

145 14A 


SI/E AEBC 

LOCATION 

4E10 

SYMBOL 

ISMBLS 

SIZE A8 

LOCATION 
1C 
7C 

SYMBOL 

AT 

IGRION 

SI7E 4FF* 

location 

24 

SYMROL 

LBLDAT 

SI7E 3208 

location 

3204 

SYMBOL 

SIZE 1EF8 

LOCATION 
AO 

SYMBOL 

NPOINT 

SI7E F9CC 

LOCATION 
8 

SYMBOL 

IDOTRD 

► SIZE 176*0 

LOCATION 
BB50 

. S YMBOL 
IACG4 

LOCATION 

108 

SYMBOL 

LOCATION 

11C 

SYMBOL 

LAST 

LOCATION 

16B 

SYMBOL 

1B5 


14/49/51 


LOCATION 

4E14 


LOCATION 

4C 

on 


LOCATION 

C4 


LOCATION 


LOCATION 

B4 


LOCATION 

C 


LOCATION 

11BF8 


LOCATION 


LOCATION 

1?0 


LOCATION 
1 BE 


•OPTIONS IN FFFFCT* IO.FHCOIC.SOURCF,NOLIST.nFCK,NOLOAO,MAP 

:?r»f?^.«/ FFF iS5»crs?«;FSip?"=: n L,NFC 3“:>'5nr, R », s t 7 E = .537 

•STATISTICS* NO DIAGNOSTICS GENERATED 


PAGE 0003 


SYMBOL LOCATION 


SYMBOL 

NMFILE 

nopges 


SYMBOL 

LSTTOT 


SYMBOL 

X 


LOCATION 

GO 

A4 


LOCATION 

4EP0 


SYMBOL LOCATION 


LOCATION 

HB 


SYMBOL LOCATION 
SYH80L LOCATION 
SYMBOL LOCATION 


SYM8GL LOCATION 
IA 124 


SYMBOL LOCATION 


Si 
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PAGE 0001 


0001 


0002 

0003 


0004 

0005 

0006 

0007 

0008 

0009 

0010 
noil 
0012 
0013 


0014 

0015 


0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 
0027 


0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 


0036 


0037 

0038 

0039 

0040 

0041 


C 

C 

C 


C 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


SUBROUTINE TITLE 6 (NUMRR) 

PURPOSE: WRITES TITLE FOR GREENNESS REPORT 

COMMON /RADI AN/NOCHAN* JGREFN. IRRIT* IDOTRD (999* 16) 
COMMQN/MTSC/NOACO*LNSOIL (6) ♦ IACQPT (2.6) * AI (5) .NMFILE (2) .SEGM. 
1 DATF(4) •IGRI0BC5) •IGRIDNC5) «NOPGES 


LIS0319G 

LIS03200 

LIS03210 

LIS03220 

LIS03230 

LIS03240 

LIS03250 

LIS03260 

LIS03270 

LIS03280 


COMMON /INFO/NOTE (8) *NUMLBL. IUQATE <4* 10) .LBLDAT (999 . 5) .L5TT0T 
1 .NOTEl (41 *NUf)ATF 

COMMON /RFP0RT/IAC01 (990*6) * IACQ2 (999,6) • I ACQ3 (909*6) * I AC041999* 6) LIS032O0 

LIS03300 

COMMON /WHnATF/KFDATE*KLDATE 


LIS03310 
LTS03320 
LIS03330 
LIS03340 
LIS033S0 
LIS03360 
LIS03370 
LIS03380 
LIS03390 
LIS03400 

SFT BFGTNNING AND ENDING ACOUSTIOM DATE TO SHORTER NAME FOR INDEXING LI503410 


LOGICAL*! ASTRSK ( 128) 

EQUIVALENCE ( I A STR C 1 ) * ASTRSK CD) 
DIMFNSION I ASTR (32) 

DIMFNSION THFAO (4) 

DIMENSION TATEMP(2) 

DATA IHEAD/»AC01 1 * • ACQ2* * * AC05* * * ACQ6*/ 
DATA ASTRS*/12P*1H*/ 


M s KFDATE 
N = KLDATE 


STORE APPLICABLE ACQUISITION TITLE TO BE PRINTED 


C 

C 

C 


T ATFMP (15 - IHFAO ( 1 ) 

I ATE M P (2) = I HEAD (2) 

IF (KFOATE .EO. 1) GO TO 5 
I ATEMP ( 1 ) = IHFAO (3) 

I ATEMP (2) = I HEAD (4) 

5 CONTINUE 

TF (NOPGES .NF^O) GO TO 10 
WRITE (6*20) SEGM, HATE 

.20 FORMAT (IX, ■SEGMENT s * * A4*21X* ’DATE GFNERATEO = *.4A4> 
GO TO 25 

10 WRITE (6.30) SEGM.DATE 

30 FORMAT (1H1. •SFGMFNT = * • A4.H1X, ■DATE GENERATED e *.4A4) 
1 ACQUISITION 


25 IF (NUMRR. NP.l) GO TO 100 

WRTTF (6.60) C IASTR ( T ) . 1=1 *8) * I ATEMP { 1 ) . (IACQDT(I.M) *1=1.2) * 

5 (IASTR(I) *1=1*8) 

60 FORMAT {/dX.8A4./, IX. »<*»*10X.A4. IX, A4.A2.9X. ***•/. 1X.8A4, 

i /.ix* ■♦•* 30 x* «*n 

WRTTF (6*65) 

65 FORMAT { IX * •* GRFFN BRIGHT DOT LINF/ f .2X. »*•) 

( I ASTR (I ) ,T=1 *8) ___ _ 

NO. NFSS NO. PI XFL».2X. •*»./. IX. •**.30X*f**.LIS0373Q 

LIS03740 


WRITE (6*66) 
66 FORMAT (IX* •* 
i /.1*.8A4) 

. • GO TO 200 


LIS03420 
LIS03430 
LIS03440 
LIS03450 
LIS03460 
LIS03470 
LIS034«0 
LIS03490 
LIS03500 
LIS03510 
LIS03520 
LIS03530 
LIS03540 
LIS03550 
LIS03560 
LIS03570 
LIS03580 
LIS03590 
LIS03600 
LIS03610 
L IS0“> >20 
LTS03630 
LIS03640 
LIS03650 
LIS03660 
LIS03670 
LIS03680 
LIS03690 
LI503700 
LIS0371C 
LIS03720 


? ACQUISITIONS. 

100 TF (NUMRR. NE. 2) GO TO 110 
CALCULATE INDEX FOR SECOND DATE 
MM s M ♦ 1 

WRITE (6*70) ( I ASTR (I) *1=1*16). I ATFMP ( 1 } , ( I ACQDT (I.M) *1=1*2) . 

1 T ATEMP (?) . (lACOOTd. MM) .1 = 1*2) . (IASTR (I) *1=1 * 16) 

70 FORMAT (/.1X«15A4.A3*/*1X***» , I OX, A4* 1 X. 44. A2.9X. • * » . 1 OX * A4. IX 
\ ,A4,A?,9X, **»,/. IX, 15A4, A3*/. IX* *** *30X. • * • ♦ 30X. »♦» ) 

WRITE (6.75) 

75 FODMAT (IX. •* GREEN BRIGHT DOT LINE/«.2X. 


LIS03750 
LIS03760 
LIS^37 70 
L IS03780 
LIS03790 
LIS03800 
LIS03810 
LIS03820 
LIS03830 
LIS03840 
LTS03850 
LIS03860 
LIS03R7G 
LIS03880 
LIS03890 


f 
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PAGE 0002 


004? 

0041. 


0044 


0045 

0046 

0047 


004fl 

0049 


0050 

0051 


0052 


0053 

0054 

0055 


0056 

0057 


OOSfl 

0050 


0080 

0061 

006? 

0061 

0064 

0065 


C 

C 

C 


c 

c 

c 


1 ** GREEN BRIGHT OOT LtNF/* .?X. *** ) 

WRTTF (6.76) (IASTR { I ) .1=1 . 16) 

76 FOPMAT (IX. •* NO. NF5S NO. PIXEL* .2X. *** . 

1 • NO. NFSS NO. PIXEL *.?X. **•«/. IX. **»• 30 X.«** . 10X. 

1 /.1X.15A4.A3./.1X. ***.30X. ***.30X. •♦«) 

GO TO 200 

1 4CQUISTI0NS 

110 TF tNUM5P.NF.3) GO TO IPO 

VRITF (6.80) (TASTP(I) .1=1 .24) • ( ( I ACQDT ( I « J) *1=1.2) .J=M.N) 
1.(IA5TR(I) .1=1.24) 

RO FORMAT </o 1X.21A4, AP, 

1 /.IX* * * • • l OX . * ACQl *.44.42.9X.***.10X**AC02 *. 

? £ 4 .A?. 5 X.***.lf>X.*ACQ 3 t .A 4 .A 2 .RX. »*» 

1 ./.1X.23A4.A2./.1X, *** * 30X. **• *30X. ***.30X* •**) 

WRTTF (6.RS) 

R5 FORMAT (IX. • * GRE^N BRIGHT DOT LINF/*.2X. 

1 •* GRFFN BRIGHT DOT LINF/*»?X* 

? «• GRFFN BRIGHT DOT LINE/ 1 .2X. •*« ) 

WRTTF (6.36) CTA5TR(I) .T=1.24) 

R6 FOPMATClX.t* NO. NFSS NO- PTXFL f . 2X . • * • . 

1 * NO. NFSS NO. PIXEL* .?X. •*• . 

?» NO* NFSS NO. PIXEL , .?X. i **./.lX.** e .30X»**» .30X * *** . 
1 . «**/.!X.PlA4. A?./. IX. *** .30X. **• .30X. **».39X. »*•> 

GO TO POO 

4 ACOUSTTTONS 

120 IF (NIJMPR.aJE.4) GO TO 130 

WRTTF (6 * RO) ( IASTR (T) .1 = 1.3?) . ( ( T ACOOT C I .ai . 1=1 .2) .J=M.N) . 

1 (TASTP(T) .1=1.32) 

QO FORMAT ( /« 1 X. 31 A 4 . AT ./.IX. ***. 10 X. *ACG 1 * . A 4 . A 2 . 9 X. * * « . 10 X. 

1 1 ACQ2 • . A4. A2.9X. •* * . 10X« * ACQ3 • . A4.A2.9X, •*»♦ 

? 10X. *AC04 *.A4. A2.QX. f*» */. 1X.31A4. Al. 

3/.1X, *** .30X. •** .30X. «*».10X. •*• *30X. •*• > 

WRTTF (6.R5) 

95 FORMAT (IX.** GRFFN BRIGHT DOT LINE/*.2X. 

1 • * GRFFN BRIGHT OOT tINF/«.?X. 

? • * GREEN BRIGHT OOT LINE/* *2X. 

1 •* GREEN BRIGHT OOT LINE/* *2X. • *• ) 

WRTTF (6.R6) (TASTRCI) .1=1*32) 

96 FORMAT (IX.** NO. NFSS NO. PIXEL* «2X. •*» . 

1 * NO. NFSS NO. PIXEL* t?X.***. 

? * NO r NFSS NO. PTXFL*. 2X.*** 9 

1* NO. NESS NO. PTXFL*. ?X.***. /.IX.***. 30X. •*• .30X. •** . 

4, •**.30X. »**./. 1X.31A4.A1 ./.IX. ** * .30X. •*• .30X. *** .30X. •*» .30X. 
5 •*•) 

GO TO 200 
130 WRTTF (1.9Q0) 

990 FORMAT (• INVALID NIJMRFP OF AtOUIS ITIONS* > 

200 NOPGFS = NOPGES ♦ 1 
RFTtJRN 
FNO 


LIS03900 
LIS039I0 
LIS03R20 
LIS03930 
LIS03940 
LIS039S0 
LIS0396Q 
LIS03970 
LIS03980 
LTS03990 
LIS04000 
LIS04010 
LIS04020 
LIS04030 
LI 504040 
LIS04050 
LIS0«.O60 
LIS04070 
LIS040B0 
LIS04090 
LIS04100 
LTS04110 
LIS04120 
30XLIS04130 
LIS04140 
LIS04150 
LIS04160 
LTS04170 
LIS041B0 
LIS041R0 
LIS04200 
LIS04210 
LIS04220 
LIS04230 
LIS04240 
LIS042S0 
LT504260 
LIS04270 
LIS04280 
LIS04290 
LIS04300 
LIS04310 
LIS04320 
LIS04330 
LIS04340 
30XLIS04350 
LIS04160 
LIS04370 
LIS043B0 
LIS04390 
LTS04400 
LIS04410 
LIS04420 
LIS04430 


% 


■o * 
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symbol 

noonan 


LOCATION 

0 


COMMON BLOCK /RADIAN / map si 7 E FSCC 

rrS22u LOCATION SYMBOL LOCATION 

IGQFFN 4 IRPJT B 


SYMBOL 

IDOTRD 


LIBATION 

C 


SYMBOL 


LOCATION 


SYMBOL 

NOaCO 

SFOM 


SYMBOL 

MOTF 

NOTE1 


LOCATION 

0 

6rt 


LOCATION 

0 

4F04 


TOMMON RLOCK /MISC / MAP SI 7 E AB 

^?, L LOCATION symbol LOCATION 

L«$OIL 4 IACRDT 1C 

DATE AC IRRIDR 7C 

COMMON Rl OCK /INFO / MAP SI7F 4FEB 

2K LOCATION SYMBOL LOCATION 

NUMLML ?n IUOATF ?4 

%jr-4TE 4EF4 * 


SYMBOL 

Al 

IGRIDN 


SYMBOL 

LBLOAT 


LOCATION 

*C 

SO 


LOCATION 

C4 


SYMBOL 

NHFILE 

NOPGES 


SYMBOL 

LSTTOT 


LOCATION 

60 

A4 


LOCATION 

4ED0 


SYMBOL 

TACOl 


SYMROL 

kfoate 


location 

n 


LOCATION 

0 


COMMON RLOCK /RFPORT / HAP SI7F 176A0 

L0 ^H nN location 7640 SYMBOL 

I*C02 BOAB IACQ3 BB50 IAC04 


COMMON Rl OCK /WHOATE / MAP SI7E 
KLOATF LOCATION SYMBOL LOCATION 


LOCATION 

llflFB 


SYM80L LOCATION 


SYMBOL LOCATION 


SYMBOL LOCATION 


SYMBOL 

TRCOM# 


LOCATION 

158 


surproooahs CALLFO 

SYMBOL 10CATI0N SYMBOL LOCATION 


SYMBOL 


LOCATION 


SYMBOL LOCATION 


SYMROL 

T&STP 

LOCATION 

160 

^ FOUIVALFNCF DATA 

SYMROL LOCATION 

ASTPSK 160 

MAP 

SYMBOL 

LOCATION 

. SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMROL 

M 

J 

LOCATION 
1F0 
1 FA 

SCALAR MAP 
SYMROL LOCATION 

N ]F4 

SYMBOL 

NUMRP 

LOCATION 

1E8 

SYK80L 

1 

LOCATION 

1FC 

SYMBOL 

MM 

LOCATION 

1F0 

SYMROL 

THFAD 

LOCATION 

1FS 

ARRAY MAP 

SYMROL LOCATION 

TATFMP POA 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMROL 

?0 

70 

P6 

LOCATION 

?10 

?F9 

ACO 

FORMAT STATFMFNT 
SYMROL LOCATION 

30 ?3R 

7S R41 

90 S6F 

MAP 

SYMBOL 

60 

76 

95 

LOCATION 
2 87 
IRA 
5F4 

SYMBOL 

65 

80 

96 

LOCATION 

?97 

3FF 

675 

SYMBOL 

66 

85 

990 

LOCATION 

2BF 

463 

743 


:8pHSn? in vMni ^r£ n ^f^;r r :t?b^5f°r K ’ NoLo ?s* M4P 

•STATiItICS* NO S niAGNOSTICS y GENMATFO fie: «P«OGRAM SI7E = 


349 ? 
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14/4Q/51 


PA GE 0001 


FTL r LISTGRN 


PtJPnUF ✓ LAPS 3031 


0001 SUBROUTINE HEAOIV LIS04440 

C LI5044S0 

. C PURPOSE: WRITE REPORT HEARING LIS044G0 


C 

C 

C RFPORT WFAOTNG VRITTFN 

C 

C 

000? WRITE t*%lOO) 

0003 100 FORMAT £1H1*60X«»T ARLF TV* 

r 

0004 RETURN 

0005 FNO 


LIS04470 

LIS044R0 

LIS04490 

LIS04500 

LIS04S10 

LIS045?0 

LIS04S30 

//* S ht. tOROFREO RY GRFFN NUMBER* *//> L IS04S40 

LTS04nS0 

LIS04S60 

LXS04b7G 


f 



FORTRAN IV * LFVFL 


HFAOIV 


X4/*9/SI 


PAGE 0002 


FTL r LTSTGRN 


21 


DATE = m>lST 
PURDUE / LARS 3011 


Ifw 


SYMBOL * 
TRrOtf* 


LOCATION 

RO 


surppograms called 

SYMBOL LOCATION SYMROL 


tOCATION 


SYMROL 


LOCATION 


SYM90L 


SYRROL 

100 


LOCATION 


FORMAT STATFMFNT HAP 
SYMBOL LOCATION SYMBOL 


IOC AT I ON 


SYMBOL 


LOCATION 


SYMBOL 


•OPTIONS IN FFFFCT* f D*FRCOf r«SOMl>rF,NQL IST*OfcCK*NOLOAD*MAP 
•OPTIONS IN FFFFFT* NAHF = HFAOTV , LINFCNT = 7S 

•STATISTICS* SOUPCF STAT^MFNTS = S* PROGRAM SI7£ - 

•STATISTICS* NO DIAGNOSTICS GFNF^ATFD 


3 PA 


LOCATION 
I OCATION 




FORTRAN IV G LFVFL 21 


REAOAl 


DATE = H0157 


14 / 49/51 


FTLF LISTGRN 


PlIRmiE / LARS 3031 


nooi 


SUBROUTINE RE An AT 

LIS04S30 


C 


Liso^^a 


C 

PURPOSE* READ AT *9 FT! E FOR LATER COMPARISION 

LISO*#|90 


C 


LISQ4M0 

0(10? 


COMMON /LTST/LI^T {999*9) * NOPOTS* NOCLS* ISMFLSC30) 

LIS04^?C 


C 


LTSG4f^0 

0003 


COMMON /TNFO/NOTFtP) %NIIML 9L • IIJDATF (4*10) *L8LDAT (999,9) *LSTTOT 

LIS04440 



1 *N0TF1 (41 ,N!inAtf 

L1S046SO 

0004 


COMMON/MISC/MOACOU NSOIL C6) •IACODT {?<,6J «AI (S) •NMEHLE (2) *SFGH* 

LISOAmvO 



1 RATE (4> *TOPTD t MS) « TGRIPMCS) *NOPGFS 

LXS044?o 


C 


LIS04^-r} 

000S 


OfcTA IEND/« *FNn f / 

LTSOA^iO 

0006 


OA T A T9LNK/* »/ 

LTS047-0 


c 


-L 150*710 


c 

RFAO NlJ M flFR OF OOTS 

LIS047/0 


c 


LTS047 Kj 

0007 


NIJOATF - 0 

LI5047*S 

000ft 


OFAO (?9, la) LSTTOT,NOTE 

LIS047SI5 

0009 


10 FORMAT Cl4,ftA4) 

LIS04760 


c 


LIS04770 

0010 


numlrl = 0 

LIS047R0 


c 

RFAO DOT RECOROS 

LTS04790 


c 


LISO4*00 

0011 


NOnOTS = 1 

LIS0AH1C 

001? 


S RFAO <?9*?0*FNP=1000> CLPLOAT i NOOOTS* J1 * J=1 15) 

LISO4M?0 

0013 


?0 FORMAT { A4 * 4 14) 

LIS04M10 


c 


LISO4H40 


c 

CHFCK FOR END 

L IS04PS0 


c 


LIS04h^0 

0014 


TF (1 BLOAT (NOOOTS* 1 ) • FO* IFNO) GO TO 100 

LISG4B70 


r 


LISO^ftAO 


c 

CHFCK FOR NONRLANK l ARFL AND COUNT 

LIS04P90 

0015 


TF aRLOATCNOOOTS^l > *NF „ IRLNK) NUMLRL = NUMLRL ♦ 1 

LIS044tJ0 


c 


LIS04^i 0 

0016 


NonoTS = NonoTc ♦ i 

LIS04V?0 

0017 


GO TO S 

LIS049 10 


c 


LIS04940 

noifi 


100 NOOOTS = NOOOTS - 1 

LIS04RS0 

0019 


WRTTF 13*996) NONOTS 

LIS04960 

0020 


996 FORMAT ( 1 X* * NOOOTS » *%I5J 

“ LIS04970 


c 


LIS04Q*0 


c 

RFAO THE RFMATNOFP OF INFOPMATION ON AI«S FILE 

LIS049 *0 


c 


Lisosnoo 


c 


LISO^OIO 


r 

READ PEGINNING AND FNOTNG ADDRESSES FOP EACH GRID 

LIS0S020 


c 


LISOB03O 

no?l 


RFAO C?9*3n*FNO=inO0) fNOTFl { I ) * 1=1 *4) * ( IGRIOR C T> * IGRION (I ) * 1=1 

♦sjlisc^oao 

no?? 


30 FOPMAT C4A4*5(TA*1X*I4,?X)) 

LI SOSOSO 

no?3 


WRTTF (3*99R) (NOTF C T > * T=1 *4) « ( IGRXDR (I ) * IGRIDN (I) *1=1*5) 

LISGBC*© 

00?4 


990 FORMAT (IX*4A4*S(T4*lX,T4*?xn 

L1SOS070 

no?s 


?Ofl NUDATE = NUDATF ♦ 1 

lisosoho 

0026 


TF TNUOATE .GT.ln) GO TO 900 

LISO5090 

00?7 


RFAO (?9*40*ENO=Q001 CHI 0 ATE C I .NUDATE) #1=1*4) 

LIS0S100 

00?ft 


40 FORMAT (4A4) 

LI SCSI 1 0 

0029 


go to ?no 

LTS0S120 

0030 


900 NUOATE = NUDATF - 1 

LTSOSI 30 

0031 

1000 RETURN 

LIS05140 

0032 


FNO 

LIS051S0 


FORTRAN TV G IFVFL ?1 


RF ADM 


HATE = *0157 


1 4/49/S 1 


PAGC* 0002 


FTLF LISTGBN 


PUPOUE / LAPS 1011 


SYMROL 
t HT 

LOCATION 

n 

SYMBOL 

NOOOTS 

SYMBOL 

NDTF 

NOTFl 

LOCATION 

0 

4ED4 

< 

SYMBOL 

MIJMtBL 

NUOATE 

SYMROL 

NOAC.O 

SFGM 

LOCATION 

0 

6g 

< 

symbol 

t NSOIL 
OATF 

SYMBOL 

TRCOMU 

LOCATION 

FA 

SYMBOL 

SYMROL 

TFND 

LOCATION 

F4 

SYMBOL 

TRLNK 

SYMBOL 

10 

40 

LOCATION 

104 

14A 

1 

SYMBOL 

?0 


Common oi OCK /LIST / MAP SI7E 4E*C 
LOCATION SY~iS3L LOCATION 

4F0C N^TLS 4E10 


COMMON PI OCK /TNFO / MAP SI7£ 4EEB 
LOCATION SYMBOL LOCATION 

PC TUOATF ?4 

&FF4 


COMMON Rl OCK /MISC / MAP SI7F_ 
LOCATION SYMBOL 

4 I A COOT 

SC IGPIOR 


SUBPROGRAMS CALLED 

LOCATION SYMBOL 


SCALAR MAP 

LOCATION SYMBOL 

FA J 


FORMAT STATEMENT MAP 

IOC AT JON SYMBOL 

1 00 996 


LOCATION 
1C 
7C 


AO 


LOCATION 


tOCATION 

FC 


LOCATION 

114 


SYMBOL 

ISMRLS 


SYMBOL 

LBLDAT 


SYMBOL 

AI 

IGPION 


SYMBOL 


SYMBOL 

I 


SYMBOL 

10 


LOCATION 

AE14 


LOCATION 

C4 


LOCATION 

4C 

90 


LOCATION 


LOCATION 

100 


LOCATION 

l?6 


SYMBOL LOCATION 


SYMBOL LOCATION 

LSTTOT 4EOO 


SYMBOL 

NMFILE 

NOPGES 


SYMBOL 


LOCATION 

60 

A4 


LOCATION 


SYMBOL LOCATION 


SYMBOL LOCATION 
99* 137 


♦OPTIONS TN FFFFrj* TO*FPCOTC, S0*JRCF*N0L IST*DFCK*N0LO4D*HAP 
♦OPTIONS IN FFFFCT* NAME = RFADAT , LINFCNT = 7S 

♦STATISTICS* SOURCE STATEMENTS = 3?#PR0G»4M SI7E = 

♦STATISTICS* NO DIAGNOSTICS GFNEPATFD 

♦STATISTICS* NO DIAGNOSTICS THIS STFP 


116 ? 


FORTRAN IV i 
FTIF MULTTHIT 


000! 

000 ? 

0001 

0004 

0005 

0006 
0007 
OOOR 

0009 


0010 

OOH 

001 ? 

0013 

0014 

0015 

0016 

0017 

noifl 

O01Q 

00?0 

00?1 






LEVEL 21 


^ULTTHIT DATE - 80 167 14/33/20 PAGE OCOl 


PURDUE / LAWS 1031 


C PURPOSE: PRINT TABLE IV — ORDERED RV GREEN NUMBER 

C 

C FORMAT OF INPUT FTLF 

C AT LAPEL* LTNF MUMBFR* SAMPLE* CLUSTER INDEX 
C LIST 

C 

C DFSCRIPTIOM OF VAR t API FS 

DATA READ PROM INPUT Fit F IS — (SF6MENT NUMHFR) PIAlA 
v LTSTfAT LARFL. I INF NUMBER* SAMPLF* ORG CLUSTFW INDEX. BLANK) 

C NDOOTS — NUMBER OP DOTS 

C 

C BUFFER 

C IDATA — LINF OF DATA C1 q 6 PIXELS X 16 CHANNEl S) 

C 

C POINTERS TO CMRPENT VALUES 
C LtNFNO — rUROFNT | INF NUMBER 

C KOLDUN — CURRENT SAMPLE NUMBER 

C 
C 

COMMON /LIST/ LlSTCOQ9,S)* NQOOTS. NDCLS* ISHBLS (31D) 

r 


MULOOftlO 
MULOOO/O 
MULOfcOll 
MULOOR^O 
MIK.OQOSO 
H17L0006S 
MULOOO/O 
HULOQOM0 
MOL 00 09Q 
HULOOttiS 
MUL00110 
PUL00120 
MULODI *0 
MUL00I40 
MUt OOISO 
MUL00160 
MULO* 1 70 
HULOOIhO 
MtILOOIRO 
MtILOO/OO 
MULOOPIO 
MULOO??- 1 * 

MUL00?>0 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMOM/SUFFER/TOATA<l?na) *L INFNO.KOLUMN 

COMMON/RADT AN/NOf HAM* IG W FFN. IRRIT* ID0TRDIR99* 1 6) 

COMMDN/MTSC/NOACO.t NSOII (6) . IACORT (?*6) .AT (5) .NKFILE (?) .SE6H. 
1 DATE (4) *TGR JOB IS) * TGRIDNIS) *NDPGFS 
COMMON /INFO/NOTFCS) *NUMLRL* IUDATF (4. 1 0) .LBLOAT (99S.S) .LSTTOT 
1 .NOTEl C4I.NU0ATF 


MULOO 40 
MULOO/Hl 
MULOO/^n 
Ht)LOO>?0 
MtlLOO^O 
MDLOC^^O 
MffLoa 
Mt^LOO »1<1 
MULQ01/0 
MULOO130 

COMMON /RFPORT/IACO! (999*6) * I ACQ? (S99.6) . I 4C03 (999*6) * IACG4 (999.6) MULOO 

MULOOl^O 

COMMON /WHDATF/KFOATE.KLOATE 


DATA lSPTWV/l/*TSRTV?/4/ 

***** OFF INF FILF TO BE 117 RECORDS OF 2400 WORDS EACH *** 
DEFINE FILF ?5(U7* 2400. O* ID) 


INITIALT7F 

CALL SFTP10 

IF (NOCKAN *GT* 1?) WRITE C1.Q990) 

9990 FORMrT t* INVALID NO OF CHANNELS HFQUESTEO* ) 

RF AD LIST OF AT LABELS. LINF WMPFRS, SAMPLES. CLUSTERS 

CALL PFADA7 

GET RADIANCE VALUES FOP PJXF1 S 
CALL RDRADN 


C 

C 

C 

C 

r 

C 

C 

r 

c 

c 


C 

c 


NUMRR s NO A CO 


MULOG 
MUL00170 
MUL00 3**fi 
MI/L00190 
MUL0040G 

MUL00410 

MUL004/0 
HUL004 10 
MUL00440 
M1IL004SD 
MUL00460 
MUL0097D 
HUL004W& 
MUL004S0 
WULOGSGO 
MfJLOOSlO 
MULOOS/O 
MHLOOSIO 
MUL00S4G 
MtlLOOSSO 
MUL0nS60 
MUL00S70 

MilLOO^flO 

MUL0DV)5 
KUL 00*00 
MUL00610 
MUL00620 
MUL00610 
HUL00640 


IF (Wl)MRR «GT* 4) NtJMRQ = 4 
SFT BEGINNING ANQ ENDING INDICES FOR ACQUISITION DATES TO Q£ PRINTED MULOObSO 

H1IL00660 

KFDATF = 1 MUL00670 

KLOATF 55 NIJMBR HUL006HQ 

TGPFFN s ? 

TPPIT = 1 MUL00700 

CALL MOVE I T ( IACO) (1*1) *NOHRR) VUL007J0 


iUicMMii 




FORTRAN IV < 

FTLF MULTIHIT 

90?? 

no?3 

00?4 


HOPS 

00*4 

00?7 

on?? 

no^Q 

0010 

0031 

HOT? 


0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


0041 


004? 

0043 

0044 

0045 
004ft 

0047 

0048 

0049 

noso 

onsi 


nos? 

0053 

0054 


OOSS 

OOSft 


0057 

0058 

0059 

0060 


0061 

noft? 

0063 

0064 
OOSS 
0066 
0 067 

0068 

006Q 


LFVFl 21 


^IJITIMIT HATE = 801S7 

PURDUE / LARS 3031 


!4/33/?0 


PAlb 5 ' 0^9? 


r 

c 


c 

c 


c 

c 

c 

c 


CALL P1S»T (TAC01 n.ll.ISRTW?) 

CALL P1SRT CIAC31 (1 .1) .ISRTW1) 

CALL HATCH CIAC91* LSTTOT . MAXNOX) 


TF (NUMPR.LT.?) 60 TO ?0 0 
I GPFFN = 4 
IPPI^ = 3 

CALL MOVFTT ( T ACO? 0*1) .NU M RR) 

CALL P1SRT (IAC0?(1«1) .ISPTW?) 

FAIL P13PT ( I ACOP (1*1) • TSRTVl ) 

CALL MATCH (IACO?. I.STTOT. KUPRNT) 

IF (KURRNT .OT. maxnOX) MAXNOX = KURRNT 


IF (NUMRR .LT.3) C^O TO ?00 
IGPFFN = ft 
IRPIT = S 

CALL M0VFITCTACO3Cl*l)*NUMPR) 

CALL P1SRT (TACO^O.l) .ISRTW?) 

CALL P1SRT (TAC03(1.1>.T‘V»TW1) 

CALL Match (IAC03. LSTTOT. KURPNT) 

TF (KURRNT .GT. MAXNOX) MAXNQX “ KURPNT 


TF (NUM«R .LT. 4) 60 TO ?0O 


T6PFFN = 8 
IRPIT = 7 
CALL MOVFIT (I AC04 (1 .1 ) •NIJMRR) 

CALL P1SRT CTACOACnU .ISRTW?) 

CALL P1SRT (lAC04n,n,IRkTWl) 

CALL MATCH ( I AC04« LSTTOT. KUPRNT) 

TF (KURRNT .67. MAXNOX) MAXNOX = KUPRNT 
C WRITE GRID RFPORT 
200 KFFP s LSTTOT 

t STTOT = MAXNOX 
CALL REPORO (NUMRR) 


C 

c 

C 


c 

c 

c 


IF MOPE THAN 4 ACQUTSTTONS THEN wRITF RFMAINING 

IF(N0AC9.LE.4) GO TO 4Q0 

LSTTOT = KFFP 
NUMRR = NfUCO - 4 

SFT INOICFS FOR ACQUISITION DATES RASED ON NUMBER OF ACOUISTIONS 


C 

C 

C 


C 

C 

C 


KFH4TF = S 
KLOATE = NOACQ 

7FR0 FIRST AND SECOND ACOUISTTON RUFFFR 

00 300 t-1 *6 
no 300 J=1.9Q9 
TAC01 (J.I> » 0 
300 IACQ2W.I1 = 0 

COHPLETF PROCESSING OF REMAINING acquisitions 

LSTTOT = 209 
IGPFFN = 10 
IRRIT = 9 

CALL MOVETT ( IACOI (1 . 1) .NIJHRR) 

CALL PlSRT(TAC01(l*l).ISPTVr?) 

CAIL PlSRTdACOl (1*1) .TSPTWl) 

CALL MATCH (TACQ1* NODOTS. MAXNOX) 

TF (NOACO .LF. S) GO TO 3S0 
TGRF^N = 1? 


MML0CI7?R 
MULOG/V* 
MUL00740 
HUL007S6 
MUL00760 
«!1L007?0 
MtlLOO^O 
HULOC^d 
mi ILO 0*.»0 
MULOO-’o 
MUL90 * ' i 

wuloc 

MtJLOO**. 
M ULOO k O 
MtJLOfi^* -* 
MJILOO ? 

MUL003M6 

HULOO-'-O 

MULOn^O 
MULOH 3a r J 

muloo i a 
mul on^a 

MULGO 
MUL 00 * 5 

MUL on ** 
MUL 00 7 -? r ; 
MULG0S*«3 
MUL 009*50 
ml'LOIH^O 
MIIL0I310 
MI2L01U?9 
MUL 010 tO 

MULOlO^rj 

M!)L01*iS3 

MULOin^O 

MULOIOJO 

MUL01«-0 

MOLOinQQ 

muloiioo 

HOL01U0 
HUL 01 isn 
MUL 01 2 30 
HULOl 1*9 
MULC 

H1CL0U60 
MUL011TQ 
MUL011» 9 C 
HULOll^O 
MUL01?00 
MUL01?50 
M1IL01? *G 
MUL01?10 
MUL01?40 
M3)L01?S0 
MUL01?60 

Mi*L01?70 
MUL01?«0 
HUL01?^0 
HUL01300 
MUL 0131 0 
MUL013?0 
M3IL01 3 ^0 
HUL01340 
HUL013S0 
MUL01360 
MUL01 37G 
MUL01 3 nS 
MUL01 F-U 
HUL0l4-*0 
MUL01420 
«UL014?O 


FAOTPiS IV A L r VF| 


*ULTIM|1 


OOTf * 00157 


14/33/PO 


?l 


F? tr MiitTIHIT 


PU»miF / L4»s 3031 


0070 

0071 
007? 

0073 

0074 

0075 


0076 

0077 
0070 
0079 
0000 


TPPfT * it 

COIL OO.ffT (UCVtMNNUOOO) 

TOLL Pl-OT llACO?n«l)«lSQTV?) 

COIL P1SPT «’OC»l?M*ntT^PTvll 
COLL "OTCH UOC«>« L STTOT • *U»PNT1 
?F (fCUPPMT .AT . *4»NOX) M4XN0X * KlJPPMl 
C 

C WPTTF PrM4TN|NA PFPOQt 
C 

3S0 ISTTOT s 

COLL PfPAOO (NMMmM) 

400 rONTINilf 
ATOP 
FNO 


"•UL014TC 
*UL0l4*G 
W.014AC 
••UL 0 1 4 o o 
•••O.OM70 
“‘IL014-0 
••IIL014P0 
M1IL01AOO 
-UL01S1O 
M UL 0 1 S?0 
MIIL01ATO 
*•0.01^40 
M lH.O 1 ASO 
•^ILOIS^O 


•NJI T ?Mf ? 


U/3V?I 


•V A0«4 


footdin j ¥ n trvri p| 
*ftr •NA.TfMiT 


OATC * *4147 
Oin>f)*ir i laps *1011 


location 

• T <T i| 

*r*OOL 1 OCAT ION 
FOata 4 


sr**oi 

WK)T^ 


rnm $ on oi Ofr 
t 0T A T ? Sn 
4 r*r 


/LIST / mao SI7F *r A< 

*^>/LS *r 10 


SrMf.'x. 


LOTATfOM 

*'14 


r ai r>rr 

t'vrtTTON 
L Tn*no ipao 


/«tirrrw / »te m?' 

s»-o<x i or AT ION 
«0* -JMN )?0* 


^TMOOt 


LOCATION 


SYMBOL 


S »«*»<>( 


NOTMAN 


LO<aTto«» 

A 


“IOC* /OAOfA* / MAP < 1 jr r .,r r 

far?. iw *t- 


TO0TO0 


LOT 4? T 0* 
C 


Sy**NOl 


C y»eoi 

lot it TON 

NO4C0 

4 

«;fan 

44 


<;y*q<x 

L^OfL 

Oatf 


r >^N Pf.or* /-i^r 

locaT ton 

4 

4C 


/ hip M?r 

tOCATION 

Ftroof ir 

iFVWfOH >C 


S*N«OL 

•I 


LOCATION 

4C 

4«i 


- ywQOl LOTaTton 
*^Tr * 

*otfi aFDa 


Sy«*OL 

Oi 

NUOATf 


l OC A T y on 

?n 

%rr 4 


JljK' AT? 




?4 


LOLCi 


LOCATION 

C4 


Sr-HOc 

Mtr | Lf 

NOPOCS 


Sr-oOL 

LSTTOT 


' yttooi LOCATION 

FAC01 #1 


ro«wo*« ®i oc* /dfpopt ; wap c? 7 r iuia 
LOCAM'^ s*«OOL l or ATT >l^* 0 

•***• IAT01 qpso 


F Aro? 


SYMPOt 

FAro4 


l or i T I ON 






«. rw.ini 

*L"ATf 


r ommo*i Of or* /mhOaTF ✓ mao SI7F 

l TC AT TON STMOIX LOCATION 


SfTMOX 


lOrATTO** 


<;*mo(x 


^f«s<X 

Ofors# 
•»Oyr f T 


LOTATTOM 

UA 

1?* 


vi#ppo-,tt»»s r ai IFO 

«T2?k 1 Or AT, ON STMOA C 

oilnP 1,4 IHrOMM 

!?• match 


LOCATION 

II? 


Sv*qoc 

priOAi 

»€PGP0 


location 

lie 

130 


Stnhol 

po^Afyi 


*Y*POL 

FSOTWI 

YflOONT 


LOCATION 

?14 

??A 


*y**Ol 

TSOT*? 

rrrp 


SCALAP *40 

I OC 4TIO* 

?>r 


S^^MOL 

?o 

I 


LOCATION 

?\c 

?30 


fp|«pp 

J 


LOCATION 

??0 

?34 


PA ’NO* 


^rt#pOi LOCATION 
°O°0 ?34 


S ynaol 


r O wn A T STaTFmCnT 
I or ATfON 


NAP 

SfNpot 


LOCATION 


’‘TMOX Lor AT TON S»M«x 


# ^Ta T I ST Trs # NO DIAGNOSTICS GfNfPATFO **®*®0 €»an SI7C « 


location 

I OCA I ION 

LOCaTI.jN 

LOCATION 

40 

44 

0C*T|ON 

44 00 

LOCATION 

location 

XATfON 

170 

XaF ion 

?C4 

l Of.il V ON 


19?4 









% f ootoin fv r, irvri ?i oooiw niTf * *oiS7 h/3)/?e 

F nr •HltTlHlT FM^DUf ✓ LARS 3031 


0001 


0007 

0003 

0004 

ooos 

000 * 


0007 


oonn 


oooq 

ooi« 

^011 

001? 

o«n 


0014 

oois 


001#* 
0017 
OHIO 
00 1 Q 
00>0 
00^1 
007? 


0071 

00?4 

00?S 


SMROfHIT INF POPAflN 

C PiiRPOSF : PFAO PAOlANFF VAL'IFS FOP SFLFC T FO PI*F|S 

r 

common /LTST/ Ll^TfQQQ.Sl. NOOOTS# NOCLS* ISM*lSC30) 

COMMON ZlNFO/NOTF f O) ••r^MlNL • TH04TF C4 * 1 01 ♦t°L , >AT ( 99<*.S) •LSTTOT 
1 *NOTf I f 4 1 . NMO A T I 

roMMON/Misr/No%rN*LNSon <si «TAcooTf?.M .at f si • nmfu.fipi •sfgn. 

1 04 TF (4) • TOPI OP (M • |r,P|r>N!Sl •NQPGfS 
CO-^N/Mi»rrFu/if)ATM 37001 .1 |ni NO.«Ol »»mn 

r 

COmmon/PAOT 4N/NOFM4N* IGDFFN* IRQ! T • T 00 T PO C 99^ • 1 #» 1 

r 

C SFT LAST f TNF TO Q* 0 
LSTLNF * 0 

C SFT LTNF SI7F TO RF |o#» PT»FLS • NUMRFP OF CMANNfLS 
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